File Coverage

blib/lib/protected.pm
Criterion Covered Total %
statement 15 15 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod n/a
total 20 20 100.0


line stmt bran cond sub pod time code
1             package protected;
2              
3 4     4   31626 use strict;
  4         9  
  4         132  
4              
5 4     4   20 use vars qw($VERSION);
  4         8  
  4         173  
6              
7             $VERSION = 0.04;
8              
9 4     4   674 use Class::Fields::Fuxor;
  4         7  
  4         276  
10 4     4   21 use Class::Fields::Attribs;
  4         5  
  4         412  
11              
12             sub import {
13             #Dump the class.
14 5     5   32 shift;
15            
16 5         13 my $package = caller;
17 5         22 add_fields($package, PROTECTED, @_);
18             }
19              
20             return <
21             Protect your member! Wear a cup!
22             TIP
23              
24             __END__