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   66 use strict;
  14         20  
  14         613  
4 14     14   64 use warnings::register;
  14         17  
  14         1661  
5              
6 14     14   4406 use Text::MediawikiFormat::Block;
  14         30  
  14         862  
7              
8             our $VERSION = '1.04';
9              
10             sub import {
11 14     14   27 my $caller = caller();
12 14     14   75 no strict 'refs';
  14         19  
  14         1421  
13 14         323 *{ $caller . '::new_block' } = sub {
14 315     315   3075 my $type = shift;
15 315         471 my $class = "Text::MediawikiFormat::Block::$type";
16              
17 315 100       2028 *{ $class . '::ISA' } = ['Text::MediawikiFormat::Block']
  49         708  
18             unless $class->can('new');
19              
20 315         1058 return $class->new( type => $type, @_ );
21 14         72 };
22             }
23              
24             1;
25             __END__