File Coverage

blib/lib/File/Extract/Plain.pm

Criterion	Covered	Total	%
statement	13	13	100.0
branch	1	2	50.0
condition	1	3	33.3
subroutine	4	4	100.0
pod	2	2	100.0
total	21	24	87.5

# $Id: /mirror/perl/File-Extract/trunk/lib/File/Extract/Plain.pm 4210 2007-10-27T13:43:07.499967Z daisuke  $
#
# Copyright (c) 2005 Daisuke Maki
# All rights reserved.

package File::Extract::Plain;
use strict;
use base qw(File::Extract::Base);

sub mime_type { 'text/plain' }
sub extract
{
    my $self = shift;
    my $file = shift;

    open(F, $file) or Carp::croak("Failed to open file $file: $!");
    local $/ = undef;
    my $text = scalar();
    my $r = File::Extract::Result->new(
        text      => eval { $self->recode($text) } || $text,
        mime_type => $self->mime_type,
        filename  => $file,
    );
}

1;

__END__