File Coverage

lib/Class/Dot.pm
Criterion Covered Total %
statement 18 18 100.0
branch n/a
condition n/a
subroutine 6 6 100.0
pod n/a
total 24 24 100.0


line stmt bran cond sub pod time code
1             # $Id$
2             # $Source$
3             # $Author$
4             # $HeadURL$
5             # $Revision$
6             # $Date$
7             package Class::Dot;
8              
9 4     4   42808 use strict;
  4         8  
  4         118  
10 4     4   19 use warnings;
  4         6  
  4         167  
11 4     4   3022 use version;
  4         6837  
  4         27  
12 4     4   308 use 5.00600;
  4         19  
  4         274  
13              
14             our $VERSION = qv('2.0.0_15');
15             our $AUTHORITY = 'cpan:ASKSH';
16              
17 4     4   2673 use Class::Dot::Policy;
  4         17  
  4         28  
18              
19             sub import {
20 17     17   18356 my ($this_class, @args) = @_;
21 17         44 my $caller_class = caller 0;
22            
23 17         98 return Class::Dot::Policy->_dotify_class($caller_class, @args);
24             }
25              
26             1;
27              
28             __END__