File Coverage

blib/lib/File/BSED.pm

Criterion	Covered	Total	%
statement	40	41	97.5
branch	8	8	100.0
condition	5	7	71.4
subroutine	13	14	92.8
pod	7	7	100.0
total	73	77	94.8

# $Id: BSED.pm,v 1.15 2007/07/17 15:26:37 ask Exp $
# $Source: /opt/CVS/File-BSED/lib/File/BSED.pm,v $
# $Author: ask $
# $HeadURL$
# $Revision: 1.15 $
# $Date: 2007/07/17 15:26:37 $
package File::BSED;
use strict;
use warnings;
use 5.006006;
use Exporter;
use Carp qw(croak);
use vars qw($VERSION @EXPORT_OK @ISA);

$VERSION   = 0.67;

@EXPORT_OK = qw(
    gbsed
    binary_search_replace
    binary_file_matches
    string_to_hexstring
);

use base qw(Exporter);

require XSLoader;
XSLoader::load(__PACKAGE__, $VERSION);

sub binary_search_replace {
    my ($args_ref) = @_;
    croak 'Argument to File::BSED::binary_search_replace must be hash reference'
        if !ref $args_ref || ref $args_ref ne 'HASH';

    my $search  = $args_ref->{search};
    my $replace = $args_ref->{replace};
    my $infile  = $args_ref->{infile};
    my $outfile = $args_ref->{outfile};

    my $min     = $args_ref->{minmatch} ||  1;
    my $max     = $args_ref->{maxmatch} || -1;


    return _gbsed($search, $replace, $infile, $outfile, $min, $max);
}

sub binary_file_matches {
    my ($search, $infile) = @_;

    return 0 if not $search;

    croak 'Missing filename argument to binary_file_matches()'
        if not defined $infile;

    return _binary_file_matches($search, $infile);
}

sub string_to_hexstring {
    my ($string) = @_;
    return if not $string;

    return _string_to_hexstring($string);
}

sub gbsed {
    goto &binary_search_replace;
}

sub errtostr {
    return _errtostr(_gbsed_errno());
}

sub errno {
    return _gbsed_errno();
}

sub warnings {
    return _warnings();
}

1;

__END__