Infrastructure mods

diff --git a/lib/Y/AoC/Task.pm b/lib/Y/AoC/Task.pm
index bab6d938f36fa8413b9db1e4727d126d19a02060..ec7c4a20e2d366817cedd7d56a0e74faeceb4382 100644 (file)
--- a/lib/Y/AoC/Task.pm
+++ b/lib/Y/AoC/Task.pm
@@ -3,6 +3,8 @@ package Y::AoC::Task;
 use v5.36;
 
 use Exporter ('import');
+use IO::Handle;
+
 our @EXPORT = qw(t asay bsay);
 use Y::AoC qw(red white grey yellow day year);
 
@@ -20,10 +22,13 @@ $SIG{__WARN__} = sub($msg) {
        say STDERR $msg;
 };
 
+STDOUT->autoflush(1);
+STDERR->autoflush(1);
+
 our $in_test;
 sub t($subtest = ()) {
        $subtest //= '';
-       $ARGV[0] =~ s/in\.txt/test$subtest.txt/;
+       $ARGV[0] =~ s/in\.txt/test$subtest.txt/ if defined $ARGV[0];
        $in_test = 1;
 }
 
@@ -91,12 +96,3 @@ sub try_submit($part, @msg) {
 }
 
 1;
-__END__
-package Y::AoC::UA;
-
-sub new($class, $year, $day) {
-       eval 'require
-}
-
-sub get($ua) {
-1;

diff --git a/lib/Y/AoC/UA.pm b/lib/Y/AoC/UA.pm
index ecee1b0721e8adca9d52ece1762e552fce35419d..725832406839ec5cc230add3ead9b4467d2184a9 100644 (file)
--- a/lib/Y/AoC/UA.pm
+++ b/lib/Y/AoC/UA.pm
@@ -19,7 +19,7 @@ sub request($url, $args) {
                $cachefile = $cache_dir . '/' . $args->{cache_to};
                $cache = Mojo::File->new("$cachefile");
 
-               if ($args->{max_age}) { 
+               if (defined $args->{max_age}) {
                        $cache->remove
                                if $cache->stat
                                && time - $cache->stat->mtime
@@ -29,7 +29,9 @@ sub request($url, $args) {
                if ($cache->stat) {
                        say "\n", white('cached'),
                                " response from $cachefile";
-                       return Mojo::DOM->new($cache->slurp);
+                       return $args->{body}
+                               ? $cache->slurp
+                               : Mojo::DOM->new($cache->slurp);
                }
        }