Loading Build.PL +2 −0 Original line number Diff line number Diff line Loading @@ -29,6 +29,8 @@ Module::Build->new( 'DateTime' => 0, 'DateTime::Format::Strptime' => 0, 'Getopt::Long' => 0, 'HTTP::Request' => '7.00', 'IO::Uncompress::Brotli' => 0, 'JSON' => 0, 'List::Util' => 0, 'LWP::UserAgent' => 0, Loading lib/Travel/Status/DE/DBRIS.pm +3 −10 Original line number Diff line number Diff line Loading @@ -11,6 +11,7 @@ use Carp qw(confess); use DateTime; use DateTime::Format::Strptime; use Encode qw(decode encode); use IO::Uncompress::Brotli; use JSON; use LWP::UserAgent; use UUID qw(uuid4); Loading Loading @@ -367,16 +368,8 @@ sub get_with_cache_p { if ( $tx->res->headers->content_encoding && $tx->res->headers->content_encoding eq 'br' ) { eval { require IO::Uncompress::Brotli; say "unbro"; $content = IO::Uncompress::Brotli::unbro( $tx->res->content->asset->slurp ); say "done"; }; if ($@) { say $@; } } if ($cache) { Loading Loading
Build.PL +2 −0 Original line number Diff line number Diff line Loading @@ -29,6 +29,8 @@ Module::Build->new( 'DateTime' => 0, 'DateTime::Format::Strptime' => 0, 'Getopt::Long' => 0, 'HTTP::Request' => '7.00', 'IO::Uncompress::Brotli' => 0, 'JSON' => 0, 'List::Util' => 0, 'LWP::UserAgent' => 0, Loading
lib/Travel/Status/DE/DBRIS.pm +3 −10 Original line number Diff line number Diff line Loading @@ -11,6 +11,7 @@ use Carp qw(confess); use DateTime; use DateTime::Format::Strptime; use Encode qw(decode encode); use IO::Uncompress::Brotli; use JSON; use LWP::UserAgent; use UUID qw(uuid4); Loading Loading @@ -367,16 +368,8 @@ sub get_with_cache_p { if ( $tx->res->headers->content_encoding && $tx->res->headers->content_encoding eq 'br' ) { eval { require IO::Uncompress::Brotli; say "unbro"; $content = IO::Uncompress::Brotli::unbro( $tx->res->content->asset->slurp ); say "done"; }; if ($@) { say $@; } } if ($cache) { Loading