diff options
-rw-r--r-- | meta.pl | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -1,7 +1,7 @@ #!/usr/bin/env perl use strict; use warnings; -use 5.014; +use 5.012; use MetaCPAN::API; use Text::Diff; use XML::Feed; @@ -11,7 +11,7 @@ use HTML::Escape 'escape_html'; my $api = MetaCPAN::API->new(); -package Release { +{package Release; use Moose; has [qw(distribution name author date abstract)] => ( is => 'ro', @@ -182,7 +182,7 @@ sub build_entry { my $content = sprintf '<p>%s</p>', escape_html($release->abstract); - if ($diff->{diff}) { + if (exists $diff->{diff}) { $content .= sprintf '<pre>%s</pre>', escape_html($diff->{diff}); } |