File Coverage

blib/lib/private.pm
Criterion Covered Total %
statement 19 19 100.0
branch 3 4 75.0
condition n/a
subroutine 5 5 100.0
pod n/a
total 27 28 96.4


line stmt bran cond sub pod time code
1             package private;
2              
3 4     4   6421 use strict;
  4         7  
  4         143  
4              
5 4     4   20 use vars qw($VERSION);
  4         40  
  4         188  
6              
7             $VERSION = 0.04;
8              
9 4     4   21 use Class::Fields::Fuxor;
  4         8  
  4         281  
10 4     4   41 use Class::Fields::Attribs;
  4         7  
  4         686  
11              
12             sub import {
13             #Dump the class.
14 6     6   45 shift;
15            
16 6         14 my $pack = caller;
17 6         16 foreach my $field (@_) {
18 13 100       71 unless( $field =~ /^_/ ) {
19 2         9 require Carp;
20 2 50       244 Carp::carp("Private data fields should be named with a ",
21             "leading underscore") if $^W;
22             }
23             }
24 6         33 add_fields($pack, PRIVATE, @_);
25             }
26              
27              
28             return 'pants of infinity';
29             __END__