/usr/share/perl5/Perlanet/Trait/OPML.pm is in libperlanet-perl 0.56-3.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 | package Perlanet::Trait::OPML;
use strict;
use warnings;
use Moose::Role;
use namespace::autoclean;
use Carp qw( carp );
use POSIX qw(setlocale LC_ALL);
=head1 NAME
Perlanet::Trait::OPML - generate an OPML file
=head1 SYNOPSIS
my $perlanet = Perlanet->new_with_traits(
traits => [ 'Perlanet::Trait::OPML' ]
);
$perlanet->run;
=head1 DESCRIPTION
Generates an OPML file of all feeds that are being aggregated by the planet.
=head1 ATTRIBUTES
=head2 opml_generator
An L<XML::OPML::SimpleGen> object to generate the XML for the OPML file
=cut
has 'opml_generator' => (
is => 'rw',
isa => 'Maybe[XML::OPML::SimpleGen]',
lazy_build => 1,
predicate => 'has_opml'
);
sub _build_opml_generator {
my $self = shift;
eval { require XML::OPML::SimpleGen; };
if ($@) {
carp 'You need to install XML::OPML::SimpleGen to enable OPML ' .
'support';
$self->opml(undef);
return;
}
my $loc = setlocale(LC_ALL, 'C');
my $opml = XML::OPML::SimpleGen->new;
setlocale(LC_ALL, $loc);
$opml->head(
title => $self->title,
);
return $opml;
}
=head2 opml_file
Where to save the OPML feed when it has been created
=cut
has 'opml' => (
isa => 'Maybe[Str]',
is => 'rw',
);
=head1 METHODS
=head2 update_opml
Updates the OPML file of all contributers to this planet. If the L<opml>
attribute does not have a value, this method does nothing, otherwise it inserts
each author into the OPML file and saves it to disk.
=cut
sub update_opml {
my ($self, @feeds) = @_;
return unless $self->has_opml;
foreach my $f (@feeds) {
$self->opml_generator->insert_outline(
title => $f->title,
text => $f->title,
xmlUrl => $f->url,
htmlUrl => $f->url,
);
}
$self->save_opml;
}
=head2 save_opml
Save the OPML file, by default to disk.
=cut
sub save_opml {
my $self = shift;
$self->opml_generator->save($self->opml);
}
around 'fetch_feeds' => sub {
my $orig = shift;
my ($self, @feeds) = @_;
@feeds = $self->$orig(@feeds);
$self->update_opml(@feeds) if $self->has_opml;
return @feeds;
};
=head1 AUTHOR
Dave Cross, <dave@mag-sol.com>
=head1 COPYRIGHT AND LICENSE
Copyright (c) 2010 by Magnum Solutions Ltd.
This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself, either Perl version 5.10.0 or,
at your option, any later version of Perl 5 you may have available.
=cut
1;
|