lib/PXElator/format.pm

package format;

use warnings;
use strict;

sub mac {
        my ( $mac, $op ) = @_;
        $op ||= 'html';
        $mac =~ s{(..)}{$1:}g;
        $mac =~ s{:$}{};
        $mac = qq|<tt>$mac</tt>| if (caller(1))[3] =~ m{^httpd} && $op ne 'clean';
        return uc($mac);
}

1;
1	package format;
2
3	use warnings;
4	use strict;
5
6	sub mac {
7	my ( $mac, $op ) = @_;
8	$op \|\|= 'html';
9	$mac =~ s{(..)}{$1:}g;
10	$mac =~ s{:$}{};
11	$mac = qq\|<tt>$mac</tt>\| if (caller(1))[3] =~ m{^httpd} && $op ne 'clean';
12	return uc($mac);
13	}
14
15	1;