summaryrefslogtreecommitdiff
path: root/lib/Travel
diff options
context:
space:
mode:
Diffstat (limited to 'lib/Travel')
-rw-r--r--lib/Travel/Status/DE/IRIS.pm11
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 );
}