File Coverage

blib/lib/File/Comments/Plugin/PHP.pm
Criterion Covered Total %
statement 18 20 90.0
branch n/a
condition n/a
subroutine 6 7 85.7
pod 0 2 0.0
total 24 29 82.7


line stmt bran cond sub pod time code
1             ###########################################
2             # File::Comments::Plugin::PHP
3             # 2005, Mike Schilli
4             ###########################################
5              
6             ###########################################
7             package File::Comments::Plugin::PHP;
8             ###########################################
9              
10 9     9   10149 use strict;
  9         24  
  9         306  
11 9     9   47 use warnings;
  9         15  
  9         226  
12 9     9   48 use File::Comments::Plugin;
  9         14  
  9         296  
13 9     9   46 use File::Comments::Plugin::C;
  9         24  
  9         245  
14 9     9   84 use Log::Log4perl qw(:easy);
  9         17  
  9         57  
15              
16             our $VERSION = "0.01";
17             our @ISA = qw(File::Comments::Plugin::C);
18              
19             ###########################################
20             sub init {
21             ###########################################
22 11     11 0 26 my($self) = @_;
23              
24 11         71 $self->register_suffix(".php");
25 11         38 $self->register_suffix(".PHP");
26             }
27              
28             ###########################################
29             sub type {
30             ###########################################
31 0     0 0   my($self, $target) = @_;
32              
33 0           return "php";
34             }
35              
36             1;
37              
38             __END__