Permalink
Browse files

Fixed names of the attributes.

  • Loading branch information...
1 parent 9fcebe4 commit 07e5eb3b416ef4aaa7832b4bc0b3986e012c3a55 @davorg committed Aug 21, 2010
Showing with 4 additions and 4 deletions.
  1. +4 −4 lib/Perlanet/Trait/OPML.pm
View
8 lib/Perlanet/Trait/OPML.pm
@@ -62,10 +62,10 @@ Where to save the OPML feed when it has been created
=cut
-has 'opml_file' => (
+has 'opml' => (
isa => 'Str',
is => 'rw',
- predicate => 'has_opml_file'
+ predicate => 'has_opml'
);
=head1 METHODS
@@ -101,13 +101,13 @@ Save the OPML file, by default to disk.
sub save_opml {
my $self = shift;
- $self->opml_generator->save($self->opml_file);
+ $self->opml_generator->save($self->opml);
}
around 'fetch_feeds' => sub {
my $orig = shift;
my ($self, @feeds) = @_;
- return unless $self->has_opml_file;
+ return unless $self->has_opml;
@feeds = $self->$orig(@feeds);
$self->update_opml(@feeds);
return @feeds;

0 comments on commit 07e5eb3

Please sign in to comment.