File Coverage

blib/lib/Buzznet/Comment.pm

Criterion	Covered	Total	%
statement	9	41	21.9
branch			n/a
condition			n/a
subroutine	3	18	16.6
pod	14	15	93.3
total	26	74	35.1

package Buzznet::Comment;

use strict;
use warnings;

require Exporter;
use AutoLoader qw(AUTOLOAD);

our @ISA = qw(Exporter);

# Items to export into callers namespace by default. Note: do not export
# names by default without a very good reason. Use EXPORT_OK instead.
# Do not simply export all your public functions/methods/constants.

# This allows declaration	use Buzznet::Comment ':all';
# If you do not need this, moving things directly into @EXPORT or @EXPORT_OK
# will save memory.
our %EXPORT_TAGS = ( 'all' => [ qw(

) ] );

our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );

our @EXPORT = qw(

);

our $VERSION = '0.01';

#require XSLoader;
#XSLoader::load('Buzznet::Comment', $VERSION);

# Preloaded methods go here.

sub new
{
  my ($package,@refs) = @_;
  my $inst = {@refs};
  $inst->{"error"} = undef;
  return bless($inst,$package);
}

sub commentID
{
  my $self = shift;
  return $self->{"entry_comment_id"};
}

sub entryID
{
  my $self = shift;
  return $self->{"entry_id"};
}

sub userID
{
  my $self = shift;
  return $self->{"user_id"};
}

sub time
{
  my $self = shift;
  return $self->{"time"};
}

sub type
{
  my $self = shift;
  return $self->{"type"};
}

sub name
{
  my $self = shift;
  return $self->{"name"};
}

sub comments
{
  my $self = shift;
  return $self->{"comments"};
}

sub username
{
  my $self = shift;
  return $self->{"user_name"};
}

sub image
{
  my $self = shift;
  return $self->{"image"};
}

sub caption
{
  my $self = shift;
  return $self->{"caption"};
}

sub commenterURL
{
  my $self = shift;
  return $self->{"url"};
}

sub commenterImage
{
  my $self = shift;
  return $self->{"user_image"};
}

sub featureURL
{
  my $self = shift;
  return $self->{"entry_image"};
}

sub link
{
  my $self = shift;
  return $self->{"permalink"};
}


# Autoload methods go after =cut, and are processed by the autosplit program.

1;
__END__