File Coverage

blib/lib/Tk/TextHighlight/None.pm
Criterion Covered Total %
statement 9 24 37.5
branch n/a
condition 0 3 0.0
subroutine 3 10 30.0
pod 6 7 85.7
total 18 44 40.9


line stmt bran cond sub pod time code
1             package Tk::TextHighlight::None;
2              
3 1     1   21038 use vars qw($VERSION);
  1         2  
  1         57  
4             $VERSION = '0.3';
5              
6 1     1   6 use strict;
  1         1  
  1         20  
7 1     1   1031 use Data::Dumper;
  1         10052  
  1         214  
8              
9             sub new {
10 0     0 0   my ($proto, $rules) = @_;
11 0   0       my $class = ref($proto) || $proto;
12 0           my $self = {};
13 0           bless ($self, $class);
14 0           return $self;
15             }
16              
17             sub highlight {
18 0     0 1   my $hlt = shift;
19 0           return ();
20             }
21              
22             sub rules {
23 0     0 1   my $hlt = shift;
24 0           return [];
25             }
26              
27             sub stateCompare {
28 0     0 1   return 1;
29             }
30              
31             sub stateGet {
32 0     0 1   my $hlt = shift;
33             return ()
34 0           }
35            
36             sub stateSet {
37 0     0 1   my $hlt = shift;
38             }
39              
40             sub syntax {
41 0     0 1   my $hlt = shift;
42 0           return 'None'
43             }
44              
45             1;
46              
47             __END__