Mini Shell
Mini Shell
| Direktori : /home/rs/perl/fml/lib/perl5/site_perl/5.8/mach/auto/NetAddr/IP/ |
| Current File : /home/rs/perl/fml/lib/perl5/site_perl/5.8/mach/auto/NetAddr/IP/canon.al |
# NOTE: Derived from blib/lib/NetAddr/IP.pm.
# Changes made here will be lost when autosplit is run again.
# See AutoSplit.pm.
package NetAddr::IP;
#line 879 "blib/lib/NetAddr/IP.pm (autosplit into blib/lib/auto/NetAddr/IP/canon.al)"
sub canon($) {
my $addr = $_[0]->addr;
return $_[0]->{isv6} ? lc _compV6($addr) : $addr;
}
# end of NetAddr::IP::canon
1;