File Coverage

blib/lib/MyConText/File.pm
Criterion Covered Total %
statement 9 20 45.0
branch 0 2 0.0
condition n/a
subroutine 3 4 75.0
pod 1 1 100.0
total 13 27 48.1


line stmt bran cond sub pod time code
1              
2             package MyConText::File;
3 1     1   1193 use MyConText::String;
  1         3  
  1         28  
4 1     1   5 use strict;
  1         2  
  1         6294  
5 1     1   16 use vars qw! @ISA !;
  1         2  
  1         255  
6             @ISA = qw! MyConText::String !;
7              
8             sub index_document {
9 0     0 1   my ($self, $file) = @_;
10 0           my $dbh = $self->{'dbh'};
11              
12 0 0         open FILE, $file or do {
13 0           $self->{'errstr'} = "Reading the file `$file' failed: $!";
14 0           return;
15             };
16 0           my $data;
17             {
18 0           local $/ = undef;
  0            
19 0           $data = ;
20             }
21 0           close FILE;
22 0           $self->SUPER::index_document($file, $data);
23             }
24              
25             1;
26