File Coverage

blib/lib/WWW/SlideShare/Object.pm

Criterion	Covered	Total	%
statement	9	21	42.8
branch	0	2	0.0
condition			n/a
subroutine	3	6	50.0
pod	0	1	0.0
total	12	30	40.0

package WWW::SlideShare::Object;

use strict;
use Data::Dumper;
use Carp qw(confess);

our $AUTOLOAD;
our $VERSION="1.01";

sub new
{
	my $class = shift;
	my $fields = shift;

	my $self = { '_data' => $fields };
	bless $self, $class;
}

sub AUTOLOAD
{
	my $self = shift;
	confess "Too many arguments to method" if (@_ >= 1);

   	my $name = $AUTOLOAD;
        $name =~ s/.*://;

	$self->{'_data'}->{$name} =~ s/^\s+//;
	$self->{'_data'}->{$name} =~ s/\s+$//;
	$self->{'_data'}->{$name};
}

sub DESTROY { }

1;

__END__