diff options
Diffstat (limited to 'NPTest.pm')
| -rw-r--r-- | NPTest.pm | 7 |
1 files changed, 7 insertions, 0 deletions
| @@ -596,6 +596,13 @@ sub output { | |||
| 596 | } | 596 | } |
| 597 | } | 597 | } |
| 598 | 598 | ||
| 599 | sub perf_output { | ||
| 600 | my $self = shift; | ||
| 601 | $_ = $self->{output}; | ||
| 602 | s/[^|]*\|//; | ||
| 603 | return $_; | ||
| 604 | } | ||
| 605 | |||
| 599 | sub testCmd { | 606 | sub testCmd { |
| 600 | my $class = shift; | 607 | my $class = shift; |
| 601 | my $command = shift or die "No command passed to testCmd"; | 608 | my $command = shift or die "No command passed to testCmd"; |
