File Coverage

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

Criterion	Covered	Total	%
statement	12	32	37.5
branch	0	8	0.0
condition			n/a
subroutine	4	8	50.0
pod	4	4	100.0
total	20	52	38.4

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

sub source {
    my $self = shift;
    if (@_) {
        $self->{data}{source} = WebService::TypePad::Util::Coerce::coerce_Entity_in($_[0]);
        return $_[0];
    }
    else {
        return WebService::TypePad::Util::Coerce::coerce_Entity_out($self->{data}{source});
    }
}

sub target {
    my $self = shift;
    if (@_) {
        $self->{data}{target} = WebService::TypePad::Util::Coerce::coerce_Entity_in($_[0]);
        return $_[0];
    }
    else {
        return WebService::TypePad::Util::Coerce::coerce_Entity_out($self->{data}{target});
    }
}

sub status {
    my $self = shift;
    if (@_) {
        $self->{data}{status} = WebService::TypePad::Util::Coerce::coerce_RelationshipStatus_in($_[0]);
        return $_[0];
    }
    else {
        return WebService::TypePad::Util::Coerce::coerce_RelationshipStatus_out($self->{data}{status});
    }
}

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);
    }
}

1;

=head1 NAME

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

=head1 SYNOPSIS

    use WebService::TypePad::Object::Relationship;
    my $relationship = WebService::TypePad::Object::Relationship->new();

=head1 DESCRIPTION

This is a Perl representation of TypePad's Relationship 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 $relationship->links

The hyperlinks for the relationship object.

Returns an array of L objects.

=head2 $relationship->source

The source entity, the 'subject' of the relationship.

Returns a single L object.

=head2 $relationship->status

A RelationshipStatus object describing the types of relationship that currently exist between the source and the target.

Returns a single L object.

=head2 $relationship->target

The target entity, the 'object' of the relationship.

Returns a single L object.

=head1 SEE ALSO

=over 1

=item * L

=back