File Coverage

blib/lib/PJVM/Class/Attribute/Deprecated.pm
Criterion Covered Total %
statement 9 12 75.0
branch n/a
condition n/a
subroutine 3 4 75.0
pod 0 1 0.0
total 12 17 70.5


line stmt bran cond sub pod time code
1             package PJVM::Class::Attribute::Deprecated;
2              
3 3     3   16 use strict;
  3         7  
  3         108  
4 3     3   16 use warnings;
  3         6  
  3         75  
5              
6 3         206 use Object::Tiny qw(
7 3     3   15 );
  3         3  
8              
9             sub new_from_io {
10 0     0 0   my ($pkg, $io, $cp) = @_;
11            
12 0           my $self = $pkg->new(
13             );
14            
15 0           return $self;
16             }
17              
18             1;
19             __END__