diff options
Diffstat (limited to 'lib/Travel')
| -rw-r--r-- | lib/Travel/Status/DE/IRIS.pm | 11 |
1 files changed, 0 insertions, 11 deletions
diff --git a/lib/Travel/Status/DE/IRIS.pm b/lib/Travel/Status/DE/IRIS.pm index 98167f1..ae215d7 100644 --- a/lib/Travel/Status/DE/IRIS.pm +++ b/lib/Travel/Status/DE/IRIS.pm @@ -11,7 +11,6 @@ our $VERSION = '1.16'; use Carp qw(confess cluck); use DateTime; use DateTime::Format::Strptime; -use File::Slurp qw(write_file); use List::Util qw(first); use List::MoreUtils qw(uniq); use List::UtilsBy qw(uniq_by); @@ -36,7 +35,6 @@ sub new { lookbehind => $opt{lookbehind} // ( 0 * 60 ), main_cache => $opt{main_cache}, rt_cache => $opt{realtime_cache}, - log_dir => $opt{log_dir}, serializable => $opt{serializable}, user_agent => $opt{user_agent}, with_related => $opt{with_related}, @@ -184,15 +182,6 @@ sub get_with_cache { if ($cache) { $cache->freeze( $url, \$content ); } - if ( $self->{log_dir} ) { - my $filename = $url; - $filename =~ s{ ^ .* iris-tts/ }{}x; - $filename =~ tr{/}{_}; - if ( $filename =~ m{ fchg }x ) { - $filename .= $self->{datetime}->strftime('_%Y%m%d%H%M%S'); - } - write_file( $self->{log_dir} . '/' . $filename, $content ); - } return ( $content, undef ); } |