File Coverage

blib/lib/FFI/Platypus/Legacy/Raw/Ptr.pm
Criterion Covered Total %
statement 8 8 100.0
branch n/a
condition n/a
subroutine 3 3 100.0
pod 1 1 100.0
total 12 12 100.0


line stmt bran cond sub pod time code
1             package FFI::Platypus::Legacy::Raw::Ptr;
2              
3 7     7   54 use strict;
  7         25  
  7         237  
4 7     7   54 use warnings;
  7         21  
  7         577  
5              
6             # ABSTRACT: Base FFI::Platypus::Legacy::Raw pointer type
7             our $VERSION = '0.05'; # VERSION
8              
9              
10             sub new {
11 1     1 1 5 my($class, $ptr) = @_;
12 1         4 bless \$ptr, $class;
13             }
14              
15             1;
16              
17             __END__