File Coverage

blib/lib/Frontier/Client/Easy.pm

Criterion	Covered	Total	%
statement	7	9	77.7
branch			n/a
condition			n/a
subroutine	3	3	100.0
pod			n/a
total	10	12	83.3

package Frontier::Client::Easy;

use strict;
use warnings;
use Frontier::Client;

our $VERSION = 1.03;
our $AUTOLOAD;

sub new {
        my $that  = shift;
        my $class = ref($that) || $that;
        my $self  = {};
        bless $self, $class;
        #Process instantuation arguments
        my %args = @_;
        my $url = $args{'url'} || die "Must provide URL to Frontier server";
        $self->{'server'} = Frontier::Client->new( 'url' => $url, debug=>0  );
        return $self;
}

sub AUTOLOAD {                  #This sub overloads all methods called by storing the method name in $AUTOLOAD for us

        my $self = shift;
        my $type = ref($self);
        my $name = $AUTOLOAD;
        $name =~ s/.*://;                               #Trim down the fully qualified name, just the method
	return unless($name);				#Don't proceed unless we were actually asked to call something
        return $self->{'server'}->call($name,@_);       #Wrap it into a Frontier::Client->call method

}

sub DESTROY {			#Don't allow overload of the destructor
	return;
}

1;
__END__