File Coverage

blib/lib/Lingua/PTD/BzDmp.pm

Criterion	Covered	Total	%
statement	18	32	56.2
branch	0	6	0.0
condition			n/a
subroutine	6	8	75.0
pod	1	1	100.0
total	25	47	53.1

package Lingua::PTD::BzDmp;
$Lingua::PTD::BzDmp::VERSION = '1.16';
use warnings;
use strict;

use parent 'Lingua::PTD';

use IO::Compress::Bzip2     2.066  qw(bzip2 $Bzip2Error);
use IO::Uncompress::Bunzip2 2.066  qw(bunzip2 $Bunzip2Error);

=encoding UTF-8

=head1 NAME

Lingua::PTD::BzDmp - Sub-module to handle PTD bzipped files in Dumper Format

=head1 SYNOPSIS

  use Lingua::PTD;

  $ptd = Lingua::PTD->new( "file.dmp.bz2" );

=head1 DESCRIPTION

Check L<> for complete reference.

=head1 SEE ALSO

NATools(3), perl(1)

=head1 AUTHOR

Alberto Manuel Brandão Simões, [e-mail]

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2011-2014 by Alberto Manuel Brandão Simões

=cut

sub new {
    my ($class, $filename) = @_;
    my $self;
    bunzip2 $filename => \$self or die "Failed to bunzip: $Bunzip2Error.";
    {
        no strict;
        $self = eval $self;
        die $@ if $@;
    }
    bless $self => $class #amen
}

sub _save {
    my ($self, $filename) = @_;

    my $z = new IO::Compress::Bzip2 $filename, encode => 'utf8' or return 0;
    binmode $z, ":utf8";
    select $z;
    $self->dump;
    $z->close;

    return 1;
}

"This isn't right.  This isn't even wrong.";
__END__