File Coverage

blib/lib/Buzznet/Entry.pm

Criterion	Covered	Total	%
statement	9	49	18.3
branch	0	4	0.0
condition			n/a
subroutine	3	20	15.0
pod	16	17	94.1
total	28	90	31.1

package Buzznet::Entry;

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::Entry ':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::Entry', $VERSION);

# Preloaded methods go here.

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

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

sub time
{
  my $self = shift;

  if(!$self->{"time"})
  {
    return $self->{"utime"};
  }

  return $self->{"time"};
}

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

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

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

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

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

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

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

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

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

sub thumbURL
{
  my $self = shift;
  if(!$self->{"img_thumb"})
  {
    return $self->{"image"};
  }
  return $self->{"img_thumb"};
}

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

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

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

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

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

1;
__END__