File Coverage

lib/IO/Tokenized/Scalar.pm

Criterion	Covered	Total	%
statement	20	20	100.0
branch	1	2	50.0
condition			n/a
subroutine	6	6	100.0
pod	2	2	100.0
total	29	30	96.6

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

use Carp;

$VERSION = '0.05';

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

sub new {
  my $class = shift;
  my ($filename,@tokens) = @_;
  my $self = defined $filename ? IO::Scalar->new($filename): IO::Scalar->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__