view release on metacpan or  search on metacpan

lib/AgentPushKit/Client/ApiFactory.pm  view on Meta::CPAN

    my $pet = $pet_api->get_pet_by_id(pet_id => $pet_id);

    # object attributes have proper accessors:
    printf "Pet's name is %s", $pet->name;

    # change the value stored on the object:
    $pet->name('Dave');

=cut

# Load all the API classes and construct a lookup table at startup time
my %_apis = map { $_ =~ /^AgentPushKit::Client::(.*)$/; $1 => $_ }
            grep {$_ =~ /Api$/}
            usesub 'AgentPushKit::Client';

=head1 new($api_client)

    create a new AgentPushKit::Client::ApiFactory instance with the given AgentPushKit::Client::ApiClient instance.

=head1 new(%parameters)