File Coverage

blib/lib/VS/RuleEngine/Util.pm

Criterion	Covered	Total	%
statement	20	20	100.0
branch	2	2	100.0
condition			n/a
subroutine	7	7	100.0
pod	3	3	100.0
total	32	32	100.0

package VS::RuleEngine::Util;

use strict;
use warnings;

use Carp qw(croak);

require Exporter;

our @ISA = qw(Exporter);

our @EXPORT = qw();
our @EXPORT_OK = qw(
    is_existing_package
    is_valid_name
    is_valid_package_name
);

our %EXPORT_TAGS = ();

sub is_valid_name {
    my $name = pop;

    return $name =~ m/^ [A-Za-z] [A-Za-z0-9_]* $/x;
}

sub is_valid_package_name {
    my $pkg = pop;

    return $pkg =~ m/[[:alpha:]_] \w* (?: (?: :: | ') \w+ )*/x; #
}

sub is_existing_package {
    my $package = pop;
    no strict 'refs';
    my $exists = defined *{$package . '::'} ? 1 : 0;
    return $exists;
}

1;
__END__