File Coverage

blib/lib/FormValidator/Simple/Plugin/NetAddr/MAC.pm

Criterion	Covered	Total	%
statement	24	24	100.0
branch	6	6	100.0
condition			n/a
subroutine	8	8	100.0
pod	3	3	100.0
total	41	41	100.0

package FormValidator::Simple::Plugin::NetAddr::MAC;

use 5.008005;
use strict;
use warnings;

use NetAddr::MAC;
use FormValidator::Simple::Constants;

# ABSTRACT: MAC Address validation

our $VERSION = "0.01";
our @CARP_NOT = qw(NetAddr::MAC);

sub NETADDR_MAC {
    my ($self, $params, $args) = @_;

    return eval { NetAddr::MAC->new( mac => $params->[0], die_on_error => 1 ) } ? TRUE : FALSE;
}

sub NETADDR_MAC_LOCAL {
    my ($self, $params, $args) = @_;

    return eval { NetAddr::MAC->new( mac => $params->[0], die_on_error => 1 )->is_local } ? TRUE : FALSE;
}

sub NETADDR_MAC_UNIVERSAL {
    my ($self, $params, $args) = @_;

    return eval { NetAddr::MAC->new( mac => $params->[0], die_on_error => 1 )->is_universal } ? TRUE : FALSE;
}

1;

__END__