line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
1
|
|
|
|
|
|
|
package Test::Stream::Plugin; |
2
|
99
|
|
|
99
|
|
729
|
use strict; |
|
99
|
|
|
|
|
120
|
|
|
99
|
|
|
|
|
2408
|
|
3
|
99
|
|
|
99
|
|
323
|
use warnings; |
|
99
|
|
|
|
|
111
|
|
|
99
|
|
|
|
|
2631
|
|
4
|
|
|
|
|
|
|
|
5
|
99
|
|
|
99
|
|
351
|
use Test::Stream::Exporter qw/import default_export/; |
|
99
|
|
|
|
|
118
|
|
|
99
|
|
|
|
|
590
|
|
6
|
|
|
|
|
|
|
# Here we are exporting a sub called 'import' that is not our 'import' method. |
7
|
|
|
|
|
|
|
default_export import => sub { |
8
|
31
|
|
|
31
|
|
94
|
my $class = shift; |
9
|
31
|
|
|
|
|
118
|
my @caller = caller; |
10
|
31
|
|
|
|
|
137
|
$class->load_ts_plugin(\@caller, @_); |
11
|
|
|
|
|
|
|
}; |
12
|
99
|
|
|
99
|
|
434
|
no Test::Stream::Exporter; |
|
99
|
|
|
|
|
173
|
|
|
99
|
|
|
|
|
374
|
|
13
|
|
|
|
|
|
|
|
14
|
|
|
|
|
|
|
1; |
15
|
|
|
|
|
|
|
|
16
|
|
|
|
|
|
|
__END__ |