File Coverage

blib/lib/Buzznet/Gallery.pm

Criterion	Covered	Total	%
statement	9	25	36.0
branch			n/a
condition			n/a
subroutine	3	10	30.0
pod	6	7	85.7
total	18	42	42.8

package Buzznet::Gallery;

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

# Preloaded methods go here.

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

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

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

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

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

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

sub image
{
  my $self = shift;
  return $self->{"image"};
}
# Autoload methods go after =cut, and are processed by the autosplit program.

1;
__END__