File Coverage

/tmp/Wka2iRIdpn
Criterion Covered Total %
statement 3 5 60.0
branch n/a
condition n/a
subroutine 1 2 50.0
pod n/a
total 4 7 57.1


line stmt bran cond sub pod time code
1             use Mite::Shim;
2 2     2   2819692 our @LOG;
  2         3  
  2         16  
3             push @LOG, 'METHOD';
4             return $_[1];
5 0     0     }
6 0           around xyz => sub {
7             my ( $orig, $self, @args ) = @_;
8             push @LOG, 'AROUND1';
9             my $r = $self->$orig( @args );
10             push @LOG, 'AROUND2';
11             return uc $r;
12             };
13             before xyz => sub {
14             push @LOG, 'BEFORE';
15             };
16             after xyz => sub {
17             push @LOG, 'AFTER';
18             };
19             1;