File Coverage

blib/lib/Leading/Zeros.pm

Criterion	Covered	Total	%
statement	18	28	64.2
branch	0	6	0.0
condition			n/a
subroutine	6	9	66.6
pod			n/a
total	24	43	55.8

package Leading::Zeros;

use version; $VERSION = qv('0.0.2');

use warnings;
use strict;
use Carp;
use overload;

sub import {
    my ($package, @flags) = @_;
    my $converting_to_decimals = !grep { m/\A -warning \z /xms } @flags;
    overload::constant (
        binary => sub {
            my ($raw, $cooked) = @_;
            my ($octal_flag, $digits) = $raw =~ m/\A (0+) (\d+) \z/xms
                or return $cooked;  # since it must have been a hexadecimal

            return 0+$digits if $converting_to_decimals;

            carp qq{Warning: octal constant $raw (decimal value: $cooked) used};
            return $cooked;
        },
    );
}

sub unimport {
    overload::constant (
        binary => sub {
            my ($raw, $cooked) = @_;
            return $cooked if $raw !~ m/\A 0 \d+/xms;
            croak qq{Can't use octal constant ($raw) },
                  qq{while 'no Leading::Zeros' in effect\nError};
        },
    );
}

1; # Magic true value required at end of module
__END__