File Coverage

blib/lib/Test/Class/WithStrictPlan.pm
Criterion Covered Total %
statement 21 28 75.0
branch n/a
condition n/a
subroutine 8 11 72.7
pod 2 2 100.0
total 31 41 75.6


line stmt bran cond sub pod time code
1             # Copyright (c) 2017 by Pali
2              
3             package Test::Class::WithStrictPlan;
4              
5 1     1   51968 use 5.006;
  1         3  
6 1     1   4 use strict;
  1         2  
  1         17  
7 1     1   4 use warnings;
  1         2  
  1         40  
8              
9             our $VERSION = '0.1';
10              
11 1     1   288 use parent 'Test::Class';
  1         233  
  1         4  
12 1     1   14922 BEGIN { Test::Class->VERSION('0.37') }
13 0     0 1   sub fail_if_returned_early { 1 }
14              
15 1     1   8 use Attribute::Handlers;
  1         2  
  1         6  
16              
17             sub Test : ATTR(CODE, RAWDATA) {
18 0     0 1   my ($class, $symbol, $code_ref, $attr, $args) = @_;
19 1     1   42 no warnings 'redefine';
  1         2  
  1         73  
20 0           *{$symbol} = sub {
21 0     0     $code_ref->(@_);
22 0           return;
23 0           };
24 0           Test::Class::Test($class, $symbol, $code_ref, $attr, $args);
25 1     1   9 }
  1         3  
  1         6  
26              
27             1;
28             __END__