File Coverage

blib/lib/IO/Tokenized/File.pm

Criterion	Covered	Total	%
statement	17	20	85.0
branch	1	2	50.0
condition			n/a
subroutine	5	6	83.3
pod	2	2	100.0
total	25	30	83.3

package IO::Tokenized::File;
use strict;
use base qw(IO::Tokenized IO::File);
use vars qw($VERSION);

use Carp;

$VERSION = '0.05';


# new has the following synopsis:
# IO::Tokenized::File->new([$tokens [,$filename]])

sub new {
  my $class = shift;
  my ($filename,@tokens) = @_;
  my $self = defined $filename ? IO::File->new($filename): IO::File->new();
  $self = IO::Tokenized->new($self,@tokens);
  bless $self,$class;
}

# redefine so that only opening for input is allowed
sub open {
  my $self = shift;
  my ($filename) = @_; #silently ignore other parameters
  $self->SUPER::open($filename,"r");
}

1;

__END__