Parent Directory | Revision Log
rename invocable events with prefix as_ with fallback in Frey::Web This started with brute-force rename using: perl -p -i -n -e 's/sub markup/sub as_markup/' `grep -lr 'sub markup' lib t` perl -p -i -n -e 's/sub data/sub as_data/' `grep -lr 'sub data' lib t` perl -p -i -n -e 's/sub sponge/sub as_sponge/' `grep -lr 'sub sponge' lib t` perl -p -i -n -e 's/->markup/->as_markup/' `grep -lr -- '->markup' lib t` perl -p -i -n -e 's/->data/->as_data/' `grep -lr -- '->data' lib t` perl -p -i -n -e 's/->sponge/->as_sponge/' `grep -lr -- '->sponge' lib t` perl -p -i -n -e 's!/markup!/as_markup!' `grep -lr -- '/markup' lib t etc` perl -p -i -n -e 's!/data!/as_data!' `grep -lr -- '/data' lib t etc` perl -p -i -n -e 's!/sponge!/as_sponge!' `grep -lr -- '/sponge' lib t etc`
1 | dpavlin | 282 | package Frey::Feed; |
2 | use Moose; | ||
3 | |||
4 | =head1 NAME | ||
5 | |||
6 | Frey::Feed - represent RSS/Atom feed using L<Data::Feed> | ||
7 | |||
8 | =cut | ||
9 | |||
10 | dpavlin | 304 | use Frey::Types; |
11 | use Frey::Mirror; | ||
12 | |||
13 | dpavlin | 282 | use Data::Feed; |
14 | dpavlin | 297 | use Data::Dump qw/dump/; |
15 | dpavlin | 282 | |
16 | dpavlin | 295 | with 'Frey::Storage'; |
17 | |||
18 | dpavlin | 282 | has uri => ( |
19 | is => 'rw', | ||
20 | isa => 'Uri', coerce => 1, | ||
21 | required => 1, | ||
22 | dpavlin | 286 | default => 'http://blog.rot13.org/index.xml', |
23 | dpavlin | 282 | ); |
24 | |||
25 | has feed => ( | ||
26 | is => 'ro', | ||
27 | lazy => 1, | ||
28 | default => sub { | ||
29 | my ($self) = @_; | ||
30 | dpavlin | 304 | my $xml = Frey::Mirror->new( uri => $self->uri )->content; |
31 | Data::Feed->parse( \$xml ); | ||
32 | dpavlin | 282 | }, |
33 | ); | ||
34 | |||
35 | has title => ( | ||
36 | is => 'ro', | ||
37 | lazy => 1, | ||
38 | dpavlin | 296 | default => sub { $_[0]->feed->title }, |
39 | dpavlin | 282 | ); |
40 | |||
41 | dpavlin | 297 | sub entries { $_[0]->feed->entries } |
42 | dpavlin | 296 | |
43 | dpavlin | 455 | sub as_data { |
44 | dpavlin | 282 | my ($self) = @_; |
45 | dpavlin | 299 | # data should return single element! |
46 | dpavlin | 304 | [ $self->feed->entries ]; |
47 | dpavlin | 282 | } |
48 | |||
49 | 1; |
ViewVC Help | |
Powered by ViewVC 1.1.26 |