File Coverage

blib/lib/Inline/Mason/Base.pm
Criterion Covered Total %
statement 6 7 85.7
branch n/a
condition n/a
subroutine 2 3 66.6
pod 0 1 0.0
total 8 11 72.7


line stmt bran cond sub pod time code
1             package Inline::Mason::Base;
2              
3 4     4   22 use strict;
  4         56  
  4         192  
4              
5             our $VERSION = '0.01';
6              
7 4     4   36 use Exporter;
  4         9  
  4         1089  
8             our @EXPORT = qw(
9             $as_subs
10             $passive
11             $use_oo
12             $file_marker
13             $template
14             %taboo_word
15              
16             err_taboo
17             );
18              
19             our @ISA = qw(Exporter);
20              
21              
22             our $template;
23             our %taboo_word = map{$_=>1} qw(
24             import
25             load_mason
26             load_file
27             generate
28             AUTOLOAD
29             new
30             err_taboo
31             );
32              
33             our $as_subs;
34             our $passive;
35             our $use_oo;
36             our $file_marker = qr/^__\w+__\n/o;
37             sub err_taboo {
38 0     0 0   "This word '$_[0]' is reserved for internal use. Please rename it.";
39             }
40              
41              
42              
43              
44             1;
45             __END__