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	dpavlin	213	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;