File Coverage

blib/lib/Parse/Extract/Net/MAC48.pm

Criterion	Covered	Total	%
statement	19	40	47.5
branch	1	12	8.3
condition	0	3	0.0
subroutine	5	5	100.0
pod	0	2	0.0
total	25	62	40.3

package Parse::Extract::Net::MAC48;

use strict;
use warnings;

use re 'eval';

our $VERSION = '0.01';

our $charset = '0-9A-Fa-f';

our $c = '['. $charset .']';   #character
our $cc = $c.$c;               #just shorthand
our $cccc = $cc.$cc;           #again shorthand

#---------- Constructor ----------#
sub new
{
  my ($pkgname) = @_;

  my ($instance) = {};

  bless($instance, "Parse::Extract::Net::MAC48");

return $instance;
}

sub extract
{
  my $instance = shift;

  local($/);
  my $data = @_;

  my (@results);

  if( my @match = (
                   $data =~ /
                                 (?
                                 (?:
                                   (?:($cc([:-]) $cc (?:\2$cc){4}){1}) |
                                   (?:($cccc(\.)$cccc\.$cccc){1})
                                 )
                                 (??{ ($4 eq '.') ? '(?
                                 (?!(??{ ($4 eq '.') ? '\.' : $2 })|$c) #collapse this to 1 eval
                            /gcxo
            ) )
  {
    my $MAC = '';
    my $delim = '';
    while( scalar(@match) > 0 )
    {
      if( defined($match[0]) )
      {
        my $MAC = shift(@match);
        my $delim = shift(@match);
        splice(@match, 0, 2);
        if( $MAC =~ /[a-f]/ )	#to be configurable
        {
          $MAC = uc($MAC); #might be faster with a tr instead of m+uc?
        }

        if( defined $delim && $delim eq '-' ) #to be configurable
        {
          $MAC =~ tr/-/:/;
        }
        push(@results, $MAC);
      }
      else
      {
        splice(@match, 0, 2);
        my $MAC = shift(@match);
        my $delim = '.'; #shift(@match);
        shift(@match);
        push(@results, $MAC);
      }
    $MAC = '';
    $delim = '';
    }
  }

return(@results);
}

1;

__END__