File Coverage

blib/lib/MARC/File/Utils.pm

Criterion	Covered	Total	%
statement	9	14	64.2
branch			n/a
condition			n/a
subroutine	3	5	60.0
pod	2	2	100.0
total	14	21	66.6

package MARC::File::Utils;

=head1 Functions

=head2 byte_substr( $str, $pos, $len )

A utf8-safe version of C.

=cut

sub byte_substr {
    use Encode;
    use bytes;
    my ( $str, $pos, $len ) = @_;
    my $utf8 = substr( $str, $pos, $len );
    return decode( 'utf8', $utf8 );
}

=head2 byte_length

A utf8-safe version of C.

=cut

sub byte_length {
    use bytes;
    my $str = shift;
    return length( $str );
}

1;