view release on metacpan or  search on metacpan

t/lib/Local/HTTP/Tiny/Mock.pm  view on Meta::CPAN

  Perl::Critic::Policy::ValuesAndExpressions::ProhibitQuotesAsQuotelikeOperatorDelimiters: 1.130
  Perl::Critic::Policy::ValuesAndExpressions::ProhibitSpecialLiteralHeredocTerminator: 1.130
  Perl::Critic::Policy::ValuesAndExpressions::ProhibitVersionStrings: 1.130
  Perl::Critic::Policy::ValuesAndExpressions::RequireConstantVersion: 1.130
  Perl::Critic::Policy::ValuesAndExpressions::RequireInterpolationOfMetachars: 1.130
  Perl::Critic::Policy::ValuesAndExpressions::RequireNumberSeparators: 1.130
  Perl::Critic::Policy::ValuesAndExpressions::RequireQuotedHeredocTerminator: 1.130
  Perl::Critic::Policy::ValuesAndExpressions::RequireUpperCaseHeredocTerminator: 1.130
  Perl::Critic::Policy::Variables::ProhibitAugmentedAssignmentInDeclaration: 1.130
  Perl::Critic::Policy::Variables::ProhibitConditionalDeclarations: 1.130
  Perl::Critic::Policy::Variables::ProhibitEvilVariables: 1.130
  Perl::Critic::Policy::Variables::ProhibitLocalVars: 1.130
  Perl::Critic::Policy::Variables::ProhibitMatchVars: 1.130
  Perl::Critic::Policy::Variables::ProhibitPackageVars: 1.130
  Perl::Critic::Policy::Variables::ProhibitPerl4PackageNames: 1.130
  Perl::Critic::Policy::Variables::ProhibitPunctuationVars: 1.130
  Perl::Critic::Policy::Variables::ProhibitReusedNames: 1.130
  Perl::Critic::Policy::Variables::ProhibitUnusedVariables: 1.130
  Perl::Critic::Policy::Variables::ProtectPrivateVars: 1.130
  Perl::Critic::Policy::Variables::RequireInitializationForLocalVars: 1.130
  Perl::Critic::Policy::Variables::RequireLexicalLoopIterators: 1.130
  Perl::Critic::Policy::Variables::RequireLocalizedPunctuationVars: 1.130
  Perl::Critic::Policy::Variables::RequireNegativeIndices: 1.130
  Perl::Critic::PolicyConfig: 1.130
  Perl::Critic::PolicyFactory: 1.130
  Perl::Critic::PolicyListing: 1.130
  Perl::Critic::PolicyParameter: 1.130
  Perl::Critic::PolicyParameter::Behavior: 1.130
  Perl::Critic::PolicyParameter::Behavior::Boolean: 1.130
  Perl::Critic::PolicyParameter::Behavior::Enumeration: 1.130
  Perl::Critic::PolicyParameter::Behavior::Integer: 1.130
  Perl::Critic::PolicyParameter::Behavior::String: 1.130
  Perl::Critic::PolicyParameter::Behavior::StringList: 1.130
  Perl::Critic::ProfilePrototype: 1.130
  Perl::Critic::Statistics: 1.130
  Perl::Critic::TestUtils: 1.130
  Perl::Critic::Theme: 1.130
  Perl::Critic::ThemeListing: 1.130
  Perl::Critic::UserProfile: 1.130
  Perl::Critic::Utils: 1.130
  Perl::Critic::Utils::Constants: 1.130
  Perl::Critic::Utils::DataConversion: 1.130
  Perl::Critic::Utils::McCabe: 1.130
  Perl::Critic::Utils::POD: 1.130
  Perl::Critic::Utils::POD::ParseInteriorSequence: 1.130
  Perl::Critic::Utils::PPI: 1.130
  Perl::Critic::Utils::Perl: 1.130
  Perl::Critic::Violation: 1.130
  Test::Perl::Critic::Policy: 1.130
version: 1.130
',
            'protocol' => 'HTTP/1.1',
            'headers'  => {
                'server'         => 'nginx/1.6.3',
                'cache-control'  => 'max-age=1800',
                'content-type'   => 'text/yaml',
                'x-timer'        => 'S1506018172.065497,VS0,VE2',
                'x-cache-hits'   => '1, 1',
                'content-length' => '12653',
                'date'           => 'Thu, 21 Sep 2017 18:22:52 GMT',
                'connection'     => 'keep-alive',
                'x-cache'        => 'HIT, HIT',
                'age'            => '130393',
                'via'            => [
                    '1.1 varnish',
                    '1.1 varnish'
                ],
                'accept-ranges'       => 'bytes',
                'fastly-debug-digest' => '5bd2af97315cd0addda0fd4657bbd4cf437331d546f05b2adba5573b6c88c030',
                'x-runtime'           => '0.085299',
                'x-served-by'         => 'cache-sjc3147-SJC, cache-hhn1546-HHN'
            },
            'status'  => '200',
            'success' => 1,
            'reason'  => 'OK'
        };
    };
}

sub get_404 {

    # perl -e 'use HTTP::Tiny; use Data::Dumper; print Dumper(HTTP::Tiny->new->get(q{http://cpanmetadb.plackperl.org/v1.0/package/Perl::Critic_does_not_exist}));'

    return sub {
        return {
            'headers' => {
                'accept-ranges' => 'bytes',
                'x-cache'       => 'MISS, MISS',
                'date'          => 'Thu, 21 Sep 2017 19:16:05 GMT',
                'server'        => 'nginx/1.6.3',
                'content-type'  => 'text/plain',
                'via'           => [
                    '1.1 varnish',
                    '1.1 varnish'
                ],
                'fastly-debug-digest' => 'abe8f8abc3c33a054b261732aa0cb98d62f1ca227a5aafd2fa53981ccd3d1f62',
                'connection'          => 'keep-alive',
                'x-served-by'         => 'cache-sjc3151-SJC, cache-hhn1538-HHN',
                'x-timer'             => 'S1506021365.113918,VS0,VE208',
                'x-cache-hits'        => '0, 0',
                'x-runtime'           => '0.046718',
                'content-length'      => '10',
                'age'                 => '0'
            },
            'protocol' => 'HTTP/1.1',
            'content'  => 'Not found
',
            'success' => '',
            'status'  => '404',
            'url'     => 'http://cpanmetadb.plackperl.org/v1.0/package/Perl::Critic_does_not_exist',
            'reason'  => 'Not Found'
        };
    };
}

1;

# vim: ts=4 sts=4 sw=4 et: syntax=perl