File Coverage

blib/lib/Net/Social/Mapper/Persona/Generic.pm

Criterion	Covered	Total	%
statement	17	17	100.0
branch	1	2	50.0
condition	2	2	100.0
subroutine	5	5	100.0
pod	1	1	100.0
total	26	27	96.3

package Net::Social::Mapper::Persona::Generic;

use strict;
use base qw(Net::Social::Mapper::Persona);
use Feed::Find;

=head1 NAME

Net::Social::Mapper::Persona::Generic - the persona for a generic service

=head2 SYNOPSIS

See C

=cut

sub _init {
    my $self    = shift;
    my $sitemap = $self->mapper->sitemap;
    my $profile = $sitemap->profile($self->{service}, $self->{user}) || return;
    $self->{$_} = $profile->{$_} for keys %$profile;
    return $self;
}

=head2 feeds

Get the feeds for this website.

=cut
sub feeds {
    my $self = shift;
    $self->{feeds} = [ $self->mapper->_get_feeds($self->{homepage}) ] unless defined $self->{feeds};
    return $self->SUPER::feeds;
}

1;