File Coverage

blib/lib/MouseX/StrictConstructor.pm
Criterion Covered Total %
statement 13 13 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod 0 1 0.0
total 17 18 94.4


line stmt bran cond sub pod time code
1             package MouseX::StrictConstructor;
2              
3 2     2   29296097 use 5.006_002;
  2         11  
  2         91  
4 2     2   1610 use Mouse ();
  2         55322  
  2         41  
5 2     2   17 use Mouse::Exporter;
  2         8  
  2         14  
6              
7             our $VERSION = '0.02';
8              
9             Mouse::Exporter->setup_import_methods();
10              
11             sub init_meta {
12 2     2 0 59 shift;
13 2         9 my $meta = Mouse->init_meta(@_);
14 2         345 $meta->strict_constructor(1); # XXX: Mouse-extended feature
15 2         7 return $meta;
16             }
17              
18             1;
19             __END__