use Getopt::Long;
use Anime::ANN;
-GetOptions(\%options, ("l=s", "b=s"));
+binmode STDOUT, ":utf8";
+GetOptions(\%options, "l=s", "b=s", "d") || exit 1;
if($options{"l"}) {
@list = Anime::ANN::getlist($options{"l"});
exit 0;
}
+$browse = "";
if($options{"b"}) {
- exec "htmlview", Anime::ANN::geturl(Anime::ANN::getid $options{"b"});
+ $browse = $options{"b"};
+} elsif($options{"d"}) {
+ $browse = `basename "\$(pwd)"`;
+}
+if($browse) {
+ $id = Anime::ANN::getid $browse;
+ if(defined($id)) {
+ exec "htmlview", Anime::ANN::geturl($id);
+ } else {
+ printf STDERR "could not find " . $browse . "\n";
+ exit 1;
+ }
}
if(!defined($ARGV[0])) {
print ((" " x $ind) . "$i: " . $ref->[$i] . "\n");
refdump($ref->[$i], $ind + 1) if ref $ref->[$i];
}
+ } elsif(ref $ref eq "SCALAR") {
+ print ((" " x $ind) . $$ref . "\n");
} else {
print ((" " x $ind) . "Unknown ref: $ref\n");
}
}
-binmode STDOUT, ":utf8";
refdump $info;