view release on metacpan or  search on metacpan

t/02-non-numeric.t  view on Meta::CPAN

#!perl -T
use 5.006;
use strict;
use warnings;
use Test::More tests => 22;

use Const::Dual ();

sub not_a_number($) {
    my $value = shift;
    my $warn = "";
    local $SIG{__WARN__} = sub { $warn .= $_[0] };
    $value = int $value;
    return $value == 0 && $warn =~ /Argument "[^"]+" isn't numeric in int/;
}

use_ok('Const::Dual', A1 => "string1", A2 => "string2");
ok(eval { A1() }, "constant A1 exists");
ok(eval { A2() }, "constant A2 exists");