File Coverage

blib/lib/Text/MediawikiFormat/Blocks.pm
Criterion Covered Total %
statement 20 20 100.0
branch 2 2 100.0
condition n/a
subroutine 6 6 100.0
pod n/a
total 28 28 100.0


line stmt bran cond sub pod time code
1             package Text::MediawikiFormat::Blocks;
2              
3 14     14   59 use strict;
  14         19  
  14         498  
4 14     14   57 use warnings::register;
  14         27  
  14         1318  
5              
6 14     14   4185 use Text::MediawikiFormat::Block;
  14         25  
  14         648  
7              
8             our $VERSION = '1.03';
9              
10             sub import
11             {
12 14     14   25 my $caller = caller();
13 14     14   71 no strict 'refs';
  14         16  
  14         1220  
14 14         295 *{ $caller . '::new_block' } = sub
15             {
16 315     315   2277 my $type = shift;
17 315         410 my $class = "Text::MediawikiFormat::Block::$type";
18            
19 315 100       1703 *{ $class . '::ISA' } = [ 'Text::MediawikiFormat::Block' ]
  49         603  
20             unless $class->can( 'new' );
21              
22 315         938 return $class->new( type => $type, @_ );
23 14         65 };
24             }
25              
26             1;
27             __END__