File Coverage

blib/lib/BLOB.pm

Criterion	Covered	Total	%
statement	22	26	84.6
branch	4	6	66.6
condition			n/a
subroutine	7	7	100.0
pod	3	3	100.0
total	36	42	85.7

package BLOB;
use strict;
use Carp qw(carp);
use Exporter ();

# No "our" in Perl 5.0
use vars qw(@ISA $VERSION @EXPORT);

$VERSION = '1.01';
@ISA     = qw(Exporter);
@EXPORT  = qw(mark_blob is_blob);

# Fallback for Perl < 5.8
*utf8::downgrade = sub { 1 } if not defined &utf8::downgrade;

# Class method
sub mark {
    my $class = shift;
    my $blob_ref = \shift;
    if (not utf8::downgrade($$blob_ref, 1)) {
        carp "Wide character outside byte range in BLOB, encoding data with UTF-8";
        utf8::encode($$blob_ref);
    }
    bless $blob_ref, $class;
}

# Function
sub mark_blob {
    BLOB->mark($_[0]);
}

# Function
sub is_blob {
    my $blob_ref = \shift;
    return undef if not eval { $blob_ref->isa('BLOB') };
    if (not utf8::downgrade($$blob_ref, 1)) {
        carp "Wide character outside byte range in BLOB, encoding data with UTF-8";
        utf8::encode($$blob_ref);
    }
    return 1;
}

1;

__END__