diff options
Diffstat (limited to 'utils')
| -rw-r--r-- | utils/spore2dot.pl | 10 |
1 files changed, 2 insertions, 8 deletions
diff --git a/utils/spore2dot.pl b/utils/spore2dot.pl index c59d79a..57588e9 100644 --- a/utils/spore2dot.pl +++ b/utils/spore2dot.pl @@ -11,7 +11,8 @@ pod2usage(1) unless scalar(@ARGV) > 0; my @specs; foreach (@ARGV) { - push @specs, read_from_json($_); + my $content < io $_; + push @specs, JSON::decode_json($content); } print << 'DOT'; @@ -73,13 +74,6 @@ foreach my $spec (@specs) { } print "}\n"; -sub read_from_json { - my ($fname) = @_; - - my $content < io $fname; - return JSON::decode_json($content); -} - __END__ =head1 NAME |