File Coverage

blib/lib/Text/MicroMason.pm
Criterion Covered Total %
statement 13 13 100.0
branch 2 2 100.0
condition n/a
subroutine 4 4 100.0
pod 0 2 0.0
total 19 21 90.4


line stmt bran cond sub pod time code
1             package Text::MicroMason;
2             $VERSION = '2.22';
3              
4             # The #line directive requires Perl 5.6 to work correctly the way we use
5             # it in Base.
6             require 5.006;
7 39     39   171848 use strict;
  39         100  
  39         4747  
8              
9             require Text::MicroMason::Base;
10              
11             ######################################################################
12              
13             sub import {
14 40     40   586 shift;
15 40 100       1784 return unless ( @_ );
16 11         56 require Exporter;
17 11         3981 require Text::MicroMason::Functions;
18 11         44 unshift @_, 'Text::MicroMason::Functions';
19 11         1815 goto &Exporter::import
20             }
21              
22             ######################################################################
23              
24             sub class {
25 2     2 0 2522 shift;
26 2         12 Text::MicroMason::Base->class( @_, 'HTMLMason' );
27             }
28              
29             sub new {
30 148     148 0 41649 shift;
31 148         544 Text::MicroMason::Base->new( @_, '-HTMLMason' )
32             }
33              
34             ######################################################################
35              
36             1;
37              
38             __END__