diff options
Diffstat (limited to 'NPTest.pm')
| -rw-r--r-- | NPTest.pm | 7 |
1 files changed, 7 insertions, 0 deletions
| @@ -603,6 +603,13 @@ sub perf_output { | |||
| 603 | return $1 || ""; | 603 | return $1 || ""; |
| 604 | } | 604 | } |
| 605 | 605 | ||
| 606 | sub only_output { | ||
| 607 | my $self = shift; | ||
| 608 | $_ = $self->{output}; | ||
| 609 | /(.*?)\|/; | ||
| 610 | return $1 || ""; | ||
| 611 | } | ||
| 612 | |||
| 606 | sub testCmd { | 613 | sub testCmd { |
| 607 | my $class = shift; | 614 | my $class = shift; |
| 608 | my $command = shift or die "No command passed to testCmd"; | 615 | my $command = shift or die "No command passed to testCmd"; |
