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

package Tk::TextHighlight::None;

use vars qw($VERSION);
$VERSION = '0.3';

use strict;
use Data::Dumper;

sub new {
   my ($proto, $rules) = @_;
   my $class = ref($proto) || $proto;
	my $self = {};
   bless ($self, $class);
   return $self;
}

sub highlight {
	my $hlt = shift;
	return ();
}

sub rules {
	my $hlt = shift;
	return [];
}

sub stateCompare {
	return 1;
}

sub stateGet {
	my $hlt = shift;
	return ()
}

sub stateSet {
	my $hlt = shift;
}

sub syntax {
	my $hlt = shift;
	return 'None'
}

1;

__END__