File Coverage

blib/lib/MouseX/SingletonMethod.pm
Criterion Covered Total %
statement 23 23 100.0
branch n/a
condition n/a
subroutine 7 7 100.0
pod 0 1 0.0
total 30 31 96.7


line stmt bran cond sub pod time code
1             package MouseX::SingletonMethod;
2 2     2   60468 use strict;
  2         5  
  2         83  
3 2     2   12 use warnings;
  2         5  
  2         60  
4 2     2   50 use 5.008001;
  2         12  
  2         94  
5              
6 2     2   1833 use Mouse ();
  2         92477  
  2         56  
7 2     2   25 use Mouse::Exporter;
  2         4  
  2         10  
8 2     2   2202 use Mouse::Util::MetaRole;
  2         1892  
  2         368  
9              
10             our $VERSION = '0.04';
11              
12             Mouse::Exporter->setup_import_methods( also => 'Mouse' );
13              
14             sub init_meta {
15 2     2 0 63 shift;
16 2         9 my %options = @_;
17              
18 2         11 my $meta = Mouse->init_meta(%options);
19              
20 2         570 Mouse::Util::MetaRole::apply_base_class_roles(
21             for_class => $options{for_class},
22             roles => ['MouseX::SingletonMethod::Role'],
23             );
24            
25 2         5176 return $meta;
26             }
27              
28             1;
29             __END__