#!/usr/bin/perl -T

use 5.008_008;

use strict;
use warnings FATAL => 'all';

use Test::More;

my @good_pnames = (
    qw(
      foo
      foo::bar
      foo_bar
      foo::bar_baz
      )
);

my @bad_pnames = (
    qw(
      foo.pm
      foo!
      foo:
      foo::
      foo::!
      foo:bar
      foo::bar!
      foo::bar:baz
      )
);
push( @bad_pnames, 'foo bar' );

for (@good_pnames) {
    ok( valid_pname($_), "$_ is valid" );
}

for (@bad_pnames) {
    ok( !valid_pname($_), "$_ is not valid" )
      or BAIL_OUT("Invalid package was accepted! $_");
}

done_testing();

exit;

sub valid_pname {
    my $pname = shift;

    return !!($pname =~ /^\w+(?:::\w+)*$/);
}

__END__