File Coverage

blib/lib/WebService/TypePad/Object/AssetSource.pm

Criterion	Covered	Total	%
statement	12	27	44.4
branch	0	6	0.0
condition			n/a
subroutine	4	7	57.1
pod	3	3	100.0
total	19	43	44.1

package WebService::TypePad::Object::AssetSource;
use strict;
use warnings;
use WebService::TypePad::Util::Coerce;
use base qw(WebService::TypePad::Object::Base);

sub by_user {
    my $self = shift;
    if (@_) {
        $self->{data}{byUser} = WebService::TypePad::Util::Coerce::coerce_boolean_in($_[0]);
        return $_[0];
    }
    else {
        return WebService::TypePad::Util::Coerce::coerce_boolean_out($self->{data}{byUser});
    }
}

sub links {
    my $self = shift;
    if (@_) {
        $self->{data}{links} = WebService::TypePad::Util::Coerce::coerce_list_in($_[0], \&WebService::TypePad::Util::Coerce::coerce_LegacyHyperlink_in);
        return $_[0];
    }
    else {
        return WebService::TypePad::Util::Coerce::coerce_array_out($self->{data}{links}, \&WebService::TypePad::Util::Coerce::coerce_LegacyHyperlink_out);
    }
}

sub provider {
    my $self = shift;
    if (@_) {
        $self->{data}{provider} = WebService::TypePad::Util::Coerce::coerce_map_in($_[0], \&WebService::TypePad::Util::Coerce::coerce_string_in);
        return $_[0];
    }
    else {
        return WebService::TypePad::Util::Coerce::coerce_map_out($self->{data}{provider});
    }
}

1;

=head1 NAME

WebService::TypePad::Object::AssetSource - Perl representation of TypePad's AssetSource object type

=head1 SYNOPSIS

    use WebService::TypePad::Object::AssetSource;
    my $asset_source = WebService::TypePad::Object::AssetSource->new();

=head1 DESCRIPTION

This is a Perl representation of TypePad's AssetSource object type.
For more information about this type and its parameters, see L.

=head1 PROPERTIES

Each of these properties has an accessor method which will retrieve the property's value when called with no arguments or set the property's value when called with one argument.

=head2 $asset_source->by_user

B C if this content is considered to be created by its author, or C if it's actually someone else's content imported by the asset author.

Returns a single C value.

=head2 $asset_source->links

B Hyperlinks for this source object. Contains a link whose rel is "alternate" and whose type is "text/html" which is the original permalink of an item that was imported from elsewhere.

Returns an array of L objects.

=head2 $asset_source->provider

B Description of the external service provider from which this content was imported. Contains "name", "icon", and "uri" properties.

Returns a map of C values.

=head1 SEE ALSO

=over 1

=item * L

=back