view release on metacpan or  search on metacpan

t/split-ipv6.t  view on Meta::CPAN

#!/usr/bin/perl -I. -w

use strict;

use Test2::V0;

use Net::Netmask;

#feel free to add a build requires of Test::Exception if that is okay with you.
sub throws_ok(&$$) {
    my ( $code, $regex, $desc ) = @_;
    eval { $code->(); };

    my $err = $@;

    like( $err, $regex );
    return;
}

sub make_nm {

t/split.t  view on Meta::CPAN

#!/usr/bin/perl -I. -w

use strict;

use Test2::V0;

use Net::Netmask;

#feel free to add a build requires of Test::Exception if that is okay with you.
sub throws_ok(&$$) {
    my ( $code, $regex, $desc ) = @_;
    eval { $code->(); };

    my $err = $@;

    like( $err, $regex );
    return;
}

sub make_nm {