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"; |