File Coverage

blib/lib/WWW/Noss/OPML.pm

Criterion	Covered	Total	%
statement	112	135	82.9
branch	17	34	50.0
condition	9	21	42.8
subroutine	12	14	85.7
pod	10	10	100.0
total	160	214	74.7

package WWW::Noss::OPML;
use 5.016;
use strict;
use warnings;
our $VERSION = '2.02';

sub _read_outline {

    my ($self, $node, $groups) = @_;

    my $type = $node->getAttribute('type');

    return unless defined $type;

    my $title = $node->getAttribute('title');

    if ($type eq 'folder') {

        my @new = ($title // (), @$groups);

        for my $n ($node->findnodes('./outline')) {
            $self->_read_outline($n, \@new);
        }

    } elsif ($type eq 'rss') {

        my $name    = $title // return;
        my $xmlurl  = $node->getAttribute('xmlUrl') // return;
        my $text    = $node->getAttribute('text');
        my $htmlurl = $node->getAttribute('htmlUrl');

        push @{ $self->feeds }, {
            title    => $name,
            xml_url  => $xmlurl,
            text     => $text,
            html_url => $htmlurl,
            groups   => [ @$groups ],
        };

    } else {

        return;

    }

    return 1;

}

sub from_perl {

    my ($class, %param) = @_;

    my $self = bless {}, $class;

    $self->set_title($param{ title });
    $self->set_feeds($param{ feeds } // []);

    return $self;

}

sub from_xml {

    my ($class, $file) = @_;

    require XML::LibXML;

    my $self = bless {}, $class;

    my $dom = eval { XML::LibXML->load_xml(location => $file) };

    unless (defined $dom) {
        die "Failed to read $file as an XML document\n";
    }

    my ($title) = $dom->findnodes('/opml/head/title');

    $self->set_title(
        defined $title ? $title->textContent : ''
    );

    $self->set_feeds([]);

    my @outs = $dom->findnodes('/opml/body/outline');

    for my $o (@outs) {
        $self->_read_outline($o, []);
    }

    return $self;

}

sub to_xml {

    my ($self, %param) = @_;

    require XML::LibXML;

    my $dom = XML::LibXML::Document->new('1.0', 'UTF-8');

    my $root = XML::LibXML::Element->new('opml');
    $root->setAttribute('version', '1.0');

    $dom->setDocumentElement($root);

    my $head = XML::LibXML::Element->new('head');
    my $title = XML::LibXML::Element->new('title');
    $title->addChild(
        XML::LibXML::Text->new($self->title)
    );
    $head->addChild($title);
    $root->addChild($head);

    my $body = XML::LibXML::Element->new('body');
    $root->addChild($body);

    my %folders;
    my @ungrouped;

    if (defined $param{ folders } and !$param{ folders }) {
        @ungrouped = @{ $self->{ Feeds } };
    } else {
        for my $f (@{ $self->{ Feeds } }) {
            if (@{ $f->{ groups } }) {
                for my $g (@{ $f->{ groups } }) {
                    push @{ $folders{ $g } }, $f;
                }
            } else {
                push @ungrouped, $f;
            }
        }
    }

    for my $g (sort keys %folders) {

        my $folder = XML::LibXML::Element->new('outline');
        $folder->setAttribute('type', 'folder');
        $folder->setAttribute('title', $g);
        $folder->setAttribute('text', $g);
        $folder->setAttribute('description', $g);

        for my $f (@{ $folders{ $g } }) {
            my $feed = XML::LibXML::Element->new('outline');
            $feed->setAttribute('type', 'rss');
            $feed->setAttribute('title', $f->{ title });
            $feed->setAttribute('text', $f->{ text } // $f->{ title });
            $feed->setAttribute('xmlUrl', $f->{ xml_url });
            $feed->setAttribute('htmlUrl', $f->{ html_url }) if defined $f->{ html_url };
            $folder->addChild($feed);
        }

        $body->addChild($folder);

    }

    for my $f (sort { $a->{ title } cmp $b->{ title } } @ungrouped) {
        my $feed = XML::LibXML::Element->new('outline');
        $feed->setAttribute('type', 'rss');
        $feed->setAttribute('title', $f->{ title });
        $feed->setAttribute('text', $f->{ text } // $f->{ title });
        $feed->setAttribute('xmlUrl', $f->{ xml_url });
        $feed->setAttribute('htmlUrl', $f->{ html_url }) if defined $f->{ html_url };
        $body->addChild($feed);
    }

    return $dom;

}

sub to_file {

    my ($self, $file, %param) = @_;

    open my $fh, '>', $file
        or die "Failed to open $file for writing: $!\n";
    binmode $fh;
    $self->to_xml(%param)->toFH($fh, 1);
    close $fh;

    return $file;

}

sub to_fh {

    my ($self, $fh, %param) = @_;

    binmode $fh;
    $self->to_xml(%param)->toFH($fh, 1);

    return $fh;

}

sub title {

    my ($self) = @_;

    return $self->{ Title };

}

sub set_title {

    my ($self, $new) = @_;

    unless (defined $new) {
        die "title cannot be undefined";
    }

    $self->{ Title } = $new;

}

sub feeds {

    my ($self) = @_;

    return $self->{ Feeds };

}

sub set_feeds {

    my ($self, $new) = @_;

    unless (ref $new eq 'ARRAY') {
        die "feeds must be an array ref";
    }

    for my $i (0 .. $#$new) {
        unless (defined $new->[$i]{ xml_url }) {
            die "feeds[$i] is missing xml_url";
        }
        unless (defined $new->[$i]{ title }) {
            die "feeds[$i] is missing title";
        }
        if (defined $new->[$i]{ groups } and ref $new->[$i]{ groups } ne 'ARRAY') {
            die "feeds[$i]{ groups } is not an array ref";
        }
    }

    $self->{ Feeds } = $new;

}

sub rename_group {

    my ($self, $old, $new) = @_;

    my $rn = 0;

    for my $f (@{ $self->{ Feeds } }) {

        next unless defined $f->{ groups };

        for my $i (0 .. $#{ $f->{ groups } }) {
            if ($f->{ groups }[$i] eq $old) {
                $f->{ groups }[$i] = $new;
                $rn++;
            }
        }

    }

    return $rn;

}

1;

=head1 NAME

WWW::Noss::OPML - OPML file reader/writer

=head1 USAGE

  use WWW::Noss::OPML;

  my $opml = WWW::Noss::OPML->from_perl(
      title => 'Name',
      feeds => [ { ... }, ... ],
  );

  $opml->to_file('path/to/xml');

  # Read from file
  $opml = WWW::Noss::OPML->from_xml('path/to/xml');

=head1 DESCRIPTION

B is a module that provides an interface for reading and
writing OPML files. This is a private module, please consult the L
manual for user documentation.

=head1 METHODS

=over 4

=item $opml = WWW::Noss::OPML->from_perl(%param)

Creates a new B object from the parameters supplied via the
C<%param> hash.

The following are a list of valid fields for the C<%param> hash. The only
required field is C. </td>
</tr>

<tr>
<td  class="h" >
<a name="309">309</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="310">310</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =over 4 </td>
</tr>

<tr>
<td  class="h" >
<a name="311">311</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="312">312</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =item title </td>
</tr>

<tr>
<td  class="h" >
<a name="313">313</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="314">314</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> Title string for the OPML file. </td>
</tr>

<tr>
<td  class="h" >
<a name="315">315</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="316">316</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =item feeds </td>
</tr>

<tr>
<td  class="h" >
<a name="317">317</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="318">318</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> Array ref of outline feed hashes. The hashes should look something like this: </td>
</tr>

<tr>
<td  class="h" >
<a name="319">319</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="320">320</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   { </td>
</tr>

<tr>
<td  class="h" >
<a name="321">321</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     title    => ..., # required </td>
</tr>

<tr>
<td  class="h" >
<a name="322">322</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     xml_url  => ..., # required </td>
</tr>

<tr>
<td  class="h" >
<a name="323">323</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     text     => ..., </td>
</tr>

<tr>
<td  class="h" >
<a name="324">324</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     html_url => ..., </td>
</tr>

<tr>
<td  class="h" >
<a name="325">325</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     groups   => [ ... ], </td>
</tr>

<tr>
<td  class="h" >
<a name="326">326</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   } </td>
</tr>

<tr>
<td  class="h" >
<a name="327">327</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="328">328</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =back </td>
</tr>

<tr>
<td  class="h" >
<a name="329">329</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="330">330</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =item $opml = WWW::Noss::OPML->from_xml($file) </td>
</tr>

<tr>
<td  class="h" >
<a name="331">331</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="332">332</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> Create B<WWW::Noss::OPML> object from the given OPML file. </td>
</tr>

<tr>
<td  class="h" >
<a name="333">333</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="334">334</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =item $dom = $opml->to_xml([ %param ]) </td>
</tr>

<tr>
<td  class="h" >
<a name="335">335</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="336">336</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> Returns a L<XML::LibXML::Document> DOM object representing the object. </td>
</tr>

<tr>
<td  class="h" >
<a name="337">337</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="338">338</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> C<%param> is an optional hash of additional parameters to configure the </td>
</tr>

<tr>
<td  class="h" >
<a name="339">339</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> converted XML structure. The following are valid values: </td>
</tr>

<tr>
<td  class="h" >
<a name="340">340</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="341">341</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =over 4 </td>
</tr>

<tr>
<td  class="h" >
<a name="342">342</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="343">343</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =item folders </td>
</tr>

<tr>
<td  class="h" >
<a name="344">344</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="345">345</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> Boolean determining whether to include outline folders in the XML strucutre. </td>
</tr>

<tr>
<td  class="h" >
<a name="346">346</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> Defaults to true. </td>
</tr>

<tr>
<td  class="h" >
<a name="347">347</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="348">348</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =back </td>
</tr>

<tr>
<td  class="h" >
<a name="349">349</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="350">350</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =item $file = $opml->to_file($file, [ %param ]) </td>
</tr>

<tr>
<td  class="h" >
<a name="351">351</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="352">352</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> Writes the OPML object's XML structure to C<$file>. Returns C<$file> on </td>
</tr>

<tr>
<td  class="h" >
<a name="353">353</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> success, dies on failure. </td>
</tr>

<tr>
<td  class="h" >
<a name="354">354</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="355">355</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> C<%param> is an optional hash of additional parameters. Accepts the same </td>
</tr>

<tr>
<td  class="h" >
<a name="356">356</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> options as C<to_xml()>. </td>
</tr>

<tr>
<td  class="h" >
<a name="357">357</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="358">358</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =item $fh = $opml->to_fh($fh, [ %param ]) </td>
</tr>

<tr>
<td  class="h" >
<a name="359">359</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="360">360</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> Writes the OPML object's XML structure to the C<$fh> file handle. Returns C<$fh> </td>
</tr>

<tr>
<td  class="h" >
<a name="361">361</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> on success, dies on failure. </td>
</tr>

<tr>
<td  class="h" >
<a name="362">362</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="363">363</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> C<%param> is an optional hash of additional parameters. Accepts the same </td>
</tr>

<tr>
<td  class="h" >
<a name="364">364</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> options as C<to_xml()>. </td>
</tr>

<tr>
<td  class="h" >
<a name="365">365</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="366">366</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =item $title = $opml->title() </td>
</tr>

<tr>
<td  class="h" >
<a name="367">367</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="368">368</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =item $opml->set_title($title) </td>
</tr>

<tr>
<td  class="h" >
<a name="369">369</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="370">370</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> Getter/setter for the OPML's title attribute. </td>
</tr>

<tr>
<td  class="h" >
<a name="371">371</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="372">372</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =item \@feeds = $opml->feeds() </td>
</tr>

<tr>
<td  class="h" >
<a name="373">373</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="374">374</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =item $opml->set_feeds(\@feeds) </td>
</tr>

<tr>
<td  class="h" >
<a name="375">375</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="376">376</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> Getter/setter for the OPML's feeds attribute. </td>
</tr>

<tr>
<td  class="h" >
<a name="377">377</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="378">378</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =item $rn = $opml->rename_group($old, $new) </td>
</tr>

<tr>
<td  class="h" >
<a name="379">379</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="380">380</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> Goes through each feed's group list and renames the group C<$old> to C<$new>. </td>
</tr>

<tr>
<td  class="h" >
<a name="381">381</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> Returns the number of groups renamed. </td>
</tr>

<tr>
<td  class="h" >
<a name="382">382</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="383">383</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =back </td>
</tr>

<tr>
<td  class="h" >
<a name="384">384</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="385">385</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =head1 AUTHOR </td>
</tr>

<tr>
<td  class="h" >
<a name="386">386</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="387">387</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> Written by Samuel Young, E<lt>[e-mail]<gt>. </td>
</tr>

<tr>
<td  class="h" >
<a name="388">388</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="389">389</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> This project's source can be found on its </td>
</tr>

<tr>
<td  class="h" >
<a name="390">390</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> L<Codeberg page|https://codeberg.org/1-1sam/noss.git>. Comments and pull </td>
</tr>

<tr>
<td  class="h" >
<a name="391">391</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> requests are welcome! </td>
</tr>

<tr>
<td  class="h" >
<a name="392">392</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="393">393</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =head1 COPYRIGHT </td>
</tr>

<tr>
<td  class="h" >
<a name="394">394</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="395">395</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> Copyright (C) 2025-2026 Samuel Young </td>
</tr>

<tr>
<td  class="h" >
<a name="396">396</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="397">397</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> This program is free software: you can redistribute it and/or modify </td>
</tr>

<tr>
<td  class="h" >
<a name="398">398</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> it under the terms of the GNU General Public License as published by </td>
</tr>

<tr>
<td  class="h" >
<a name="399">399</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> the Free Software Foundation, either version 3 of the License, or </td>
</tr>

<tr>
<td  class="h" >
<a name="400">400</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> (at your option) any later version. </td>
</tr>

<tr>
<td  class="h" >
<a name="401">401</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="402">402</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =head1 SEE ALSO </td>
</tr>

<tr>
<td  class="h" >
<a name="403">403</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="404">404</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> L<XML::LibXML::Document>, L<noss> </td>
</tr>

<tr>
<td  class="h" >
<a name="405">405</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="406">406</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =cut </td>
</tr>

<tr>
<td  class="h" >
<a name="407">407</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="408">408</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> # vim: expandtab shiftwidth=4 </td>
</tr>

</table>

</body>
</html>