view release on metacpan or  search on metacpan

inc/Test/More.pm  view on Meta::CPAN

DIAGNOSTIC

    }

    return $ok;
}

sub _is_module_name {
    my $module = shift;

    # Module names start with a letter.
    # End with an alphanumeric.
    # The rest is an alphanumeric or ::
    $module =~ s/\b::\b//g;

    return $module =~ /^[a-zA-Z]\w*$/ ? 1 : 0;
}

#line 969

our( @Data_Stack, %Refs_Seen );