Ticketmaster-API

 view release on metacpan or  search on metacpan

META.json  view on Meta::CPAN

   "name" : "Ticketmaster-API",
   "no_index" : {
      "directory" : [
         "t",
         "inc"
      ]
   },
   "prereqs" : {
      "build" : {
         "requires" : {
            "Test::Mock::Simple" : "0.09",
            "Test::More" : "0"
         }
      },
      "configure" : {
         "requires" : {
            "ExtUtils::MakeMaker" : "0"
         }
      },
      "runtime" : {
         "requires" : {

META.yml  view on Meta::CPAN

---
abstract: "start interacting with Ticketmaster's APIs"
author:
  - 'Erik Tank <erik.tank@ticketmaster.com>'
build_requires:
  Test::Mock::Simple: '0.09'
  Test::More: '0'
configure_requires:
  ExtUtils::MakeMaker: '0'
dynamic_config: 1
generated_by: 'ExtUtils::MakeMaker version 7.04, CPAN::Meta::Converter version 2.150001'
license: artistic_2
meta-spec:
  url: http://module-build.sourceforge.net/META-spec-v1.4.html
  version: '1.4'
name: Ticketmaster-API

Makefile.PL  view on Meta::CPAN

    VERSION_FROM     => 'lib/Ticketmaster/API.pm',
    ABSTRACT_FROM    => 'lib/Ticketmaster/API.pm',
    LICENSE          => 'artistic_2',
    PL_FILES         => {},
    MIN_PERL_VERSION => 5.006,
    CONFIGURE_REQUIRES => {
        'ExtUtils::MakeMaker' => 0,
    },
    BUILD_REQUIRES => {
        'Test::More'         => 0,
        'Test::Mock::Simple' => 0.09,
    },
    PREREQ_PM => {
        'Carp'               => 1.0,
        'JSON::XS'           => 3.0,
        'LWP::UserAgent'     => 6.0,
    },
    dist  => { COMPRESS => 'gzip -9f', SUFFIX => 'gz', },
    clean => { FILES => 'Ticketmaster-API-*' },
);

t/Mock/Ticketmaster/API.pm  view on Meta::CPAN

package Mock::Ticketmaster::API;

use strict;
use warnings;

use Storable;
use Test::Mock::Simple;

my $mock = Test::Mock::Simple->new( module => 'Ticketmaster::API', allow_new_methods => 1);

# Requires: method, path_template (sprintf string), parameters (hash ref)
$mock->add( get_data => sub {
    my $self = shift;
    my %args = @_;

    my $method = $args{method} || Carp::croak("No method provided (GET)");
    my $path_template = $args{path_template} || Carp::croak("No URI template provided");
    my %parameters = exists $args{parameters} ? %{$args{parameters}} : ();

 view all matches for this distribution
 view release on metacpan -  search on metacpan