File Coverage

blib/lib/Text/HikiDoc/Plugin.pm
Criterion Covered Total %
statement 11 14 78.5
branch n/a
condition n/a
subroutine 3 4 75.0
pod 1 2 50.0
total 15 20 75.0


line stmt bran cond sub pod time code
1             #
2             # $Id: Plugin.pm,v 1.3 2006/11/12 09:43:38 6-o Exp $
3             #
4             package Text::HikiDoc::Plugin;
5              
6 6     6   3183 use strict;
  6         13  
  6         327  
7 6     6   30 use warnings;
  6         589  
  6         819  
8              
9             sub new {
10 29     29 0 61 my $class = shift;
11 29         49 my $obj = shift;
12 29         46 my $plugin_type = shift;
13              
14 29         284 my $self = bless {
15             %$obj,
16             PLUGIN_TYPE => $plugin_type,
17             } , $class;
18              
19 29         172 return $self;
20             }
21              
22             sub to_html {
23 0     0 1   my $self = shift;
24 0           my $str = shift;
25              
26 0           return $str;
27             }
28             #sub DESTROY {
29             # my $self = shift;
30             # print STDERR $self,"\t",$self->{PLUGIN_TYPE},"\n";
31             #}
32              
33              
34             1;
35             __END__