File Coverage

blib/lib/EBook/Ishmael/EBook/CBR.pm

Criterion	Covered	Total	%
statement	21	36	58.3
branch	1	6	16.6
condition			n/a
subroutine	7	10	70.0
pod	0	3	0.0
total	29	55	52.7

package EBook::Ishmael::EBook::CBR;
use 5.016;
our $VERSION = '2.01';
use strict;
use warnings;

use parent 'EBook::Ishmael::EBook::CB';

use File::Which;

use EBook::Ishmael::ShellQuote qw(safe_qx);

# TODO: Create new CBR test file that uses older RAR version, so that tests
# on systems with older unrar's can pass.

my $MAGIC = pack "C*", 0x52, 0x61, 0x72, 0x21, 0x1a, 0x07;

my $UNRAR;
for my $b (qw(unrar UnRAR)) {
    if (defined which($b)) {
        $UNRAR = $b;
        last;
    }
}

our $CAN_TEST = defined $UNRAR;

sub heuristic {

    my $class = shift;
    my $file  = shift;
    my $fh    = shift;

    return 0 unless $file =~ /\.cbr$/;

    read $fh, my $mag, length $MAGIC;

    return $mag eq $MAGIC;

}

sub _unrar {

    my $rar = shift;
    my $out = shift;

    unless (defined $UNRAR) {
        die "Cannot unrar $rar; unrar not installed\n";
    }

    safe_qx($UNRAR, 'x', $rar, $out);
    unless ($? >> 8 == 0) {
        die "Failed to run '$UNRAR' on $rar\n";
    }

    return 1;

}

sub extract {

    my $self = shift;
    my $out  = shift;

    _unrar($self->{Source}, $out);

    return 1;

}

sub format { 'CBR' }

1;