view release on metacpan or  search on metacpan

lib/Net/MAC/Vendor.pm  view on Meta::CPAN

467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
sub load_cache {
        my( $source, $dest ) = @_;
 
        my $data = do {;
                if( defined $source ) {
                        unless( -e $source ) {
                                Carp::carp "Net::Mac::Vendor cache source [$source] does not exist";
                                return;
                                }
 
                        do { local( *ARGV, $/ ); @ARGV = $source; <> }
                        }
                else {
                        #say time . " Fetching URL";
                        my $url = oui_url();
                        my $tx = __PACKAGE__->ua->get( $url );
                        #say time . " Fetched URL";
                        #say "size is " . $tx->res->headers->header( 'content-length' );
                        ($url =~ /\.bz2/) ? _bunzip($tx->res->body) :
                        ($url =~ /\.gz/)  ? _gunzip($tx->res->body) :
                                            $tx->res->body;