File Coverage

blib/lib/WWW/Facebook/API/Stream.pm

Criterion	Covered	Total	%
statement	27	27	100.0
branch	3	4	75.0
condition			n/a
subroutine	13	13	100.0
pod	9	9	100.0
total	52	53	98.1

#######################################################################
# ex: set ts=8 sw=4 et
#########################################################################
package WWW::Facebook::API::Stream;

use warnings;
use strict;
use Carp;

sub add_comment {
    return shift->base->call( 'stream.addComment', @_ );
}

sub add_like {
    return shift->base->call( 'stream.addLike', @_ );
}

sub get {
    return shift->base->call( 'stream.get', @_ );
}

sub get_comments {
    return shift->base->call( 'stream.getComments', @_ );
}

sub get_filters {
    return shift->base->call( 'stream.getFilters', @_ );
}

sub publish {
    my $base = shift->base;
    my %args = @_;

    if (ref($args{'action_links'}) eq 'ARRAY') {
        eval q{use JSON::Any};
        croak "Unable to load JSON module to encode 'action_links':$@\n" if $@;
        $args{'action_links'} = $base->_parser->encode( $args{'action_links'} );
    }

    return $base->call( 'stream.publish', %args );
}

sub remove {
    return shift->base->call( 'stream.remove', @_ );
}

sub remove_comment {
    return shift->base->call( 'stream.removeComment', @_ );
}

sub remove_like {
    return shift->base->call( 'stream.removeLike', @_ );
}

1;
__END__