lib/PXElator/format.pm

package format;

use warnings;
use strict;

sub mac {
        my ($mac,$op) = @_;
        $op ||= '';
        if ( $mac !~ m{:} ) {
                $mac =~ s{(..)}{$1:}g;
                $mac =~ s{:$}{};
        }
        $mac = qq|<tt>$mac</tt>| if $op =~ m{htm};
        return uc($mac);
}

1;
1	package format;
2
3	use warnings;
4	use strict;
5
6	sub mac {
7	my ($mac,$op) = @_;
8	$op \|\|= '';
9	if ( $mac !~ m{:} ) {
10	$mac =~ s{(..)}{$1:}g;
11	$mac =~ s{:$}{};
12	}
13	$mac = qq\|<tt>$mac</tt>\| if $op =~ m{htm};
14	return uc($mac);
15	}
16
17	1;