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	dpavlin	213	package format;
2
3			use warnings;
4			use strict;
5
6			sub mac {
7	dpavlin	216	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	dpavlin	213	return uc($mac);
15			}
16
17			1;