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   45913 use strict;
  2         5  
  2         70  
3 2     2   10 use warnings;
  2         4  
  2         49  
4 2     2   46 use 5.008001;
  2         10  
  2         78  
5              
6 2     2   1694 use Mouse ();
  2         62827  
  2         53  
7 2     2   21 use Mouse::Exporter;
  2         5  
  2         9  
8 2     2   2077 use Mouse::Util::MetaRole;
  2         1717  
  2         294  
9              
10             our $VERSION = '0.05';
11              
12             Mouse::Exporter->setup_import_methods( also => 'Mouse' );
13              
14             sub init_meta {
15 2     2 0 58 shift;
16 2         7 my %options = @_;
17              
18 2         11 my $meta = Mouse->init_meta(%options);
19              
20 2         513 Mouse::Util::MetaRole::apply_base_class_roles(
21             for_class => $options{for_class},
22             roles => ['MouseX::SingletonMethod::Role'],
23             );
24            
25 2         5113 return $meta;
26             }
27              
28             1;
29             __END__