APR-HTTP-Headers-Compat

 view release on metacpan or  search on metacpan

Build.PL  view on Meta::CPAN

  module_name          => 'APR::HTTP::Headers::Compat',
  license              => 'perl',
  dist_author          => 'Andy Armstrong <andy@hexten.net>',
  dist_version_from    => 'lib/APR/HTTP/Headers/Compat.pm',
  recursive_test_files => 1,
  requires             => {
    'APR::Pool'     => 0,
    'APR::Table'    => 0,
    'HTTP::Headers' => 0,
    'Storable'      => 0,
    'Test::More'    => 0,
  },
  add_to_cleanup => ['APR-HTTP-Headers-Compat-*'],
);

$builder->create_build_script();

META.yml  view on Meta::CPAN

license: perl
resources:
  bugtracker: http://rt.cpan.org/NoAuth/Bugs.html?Dist=APR-HTTP-Headers-Compat
  license: http://dev.perl.org/licenses/
  repository: git://github.com/AndyA/APR--HTTP--Headers--Compat.git
requires:
  APR::Pool: 0
  APR::Table: 0
  HTTP::Headers: 0
  Storable: 0
  Test::More: 0
provides:
  APR::HTTP::Headers::Compat:
    file: lib/APR/HTTP/Headers/Compat.pm
    version: 0.02
  APR::HTTP::Headers::Compat::MagicArray:
    file: lib/APR/HTTP/Headers/Compat/MagicArray.pm
  APR::HTTP::Headers::Compat::MagicHash:
    file: lib/APR/HTTP/Headers/Compat/MagicHash.pm
generated_by: Module::Build version 0.33
meta-spec:

lib/APR/HTTP/Headers/Compat.pm  view on Meta::CPAN

Because the underlying storage for the headers is an C<APR::Table>
attempts to store an object (such as a L<URI> instance) in the table
will not behave as expected.

I haven't benchmarked but it's certain that this implementation will be
substantially slower than C<HTTP::Headers>.

=head1 DEPENDENCIES

L<APR::Pool>, L<APR::Table>, L<HTTP::Headers>, L<Storable>, L<Test::More>

=head1 SEE ALSO

L<FirePHP::Dispatcher>

=head1 INCOMPATIBILITIES

None reported.

=head1 BUGS AND LIMITATIONS

t/00.load.t  view on Meta::CPAN

use Test::More tests => 1;

BEGIN {
  use_ok( 'APR::HTTP::Headers::Compat' );
}

diag(
  "Testing APR::HTTP::Headers::Compat $APR::HTTP::Headers::Compat::VERSION"
);

t/basic.t  view on Meta::CPAN

#!perl

use strict;
use warnings;

use APR::HTTP::Headers::Compat;
use APR::Pool;
use APR::Table;
use Test::More tests => 10;

my $Pool = APR::Pool->new;

{
  my $table = APR::Table::make( $Pool, 1 );
  ok my $h = APR::HTTP::Headers::Compat->new( $table ), 'new';
  $h->header( 'Content-Type', 'text/plain' );
  is_deeply [ tcont( $table ) ], [ 'Content-Type', 'text/plain' ],
   'add';
  $h->push_header( 'Foo' => 1 );

t/compat/base/headers-etag.t  view on Meta::CPAN

#!perl -w

use strict;
use Test::More tests => 4;

use APR::Pool;
use APR::Table;
use APR::HTTP::Headers::Compat;
use HTTP::Headers::ETag;

my $Pool = APR::Pool->new;

sub mk(@) {
  my $table = APR::Table::make( $Pool, 10 );

t/compat/base/headers.t  view on Meta::CPAN

#!perl -w

use strict;

use Test::More tests => 163;
use APR::Pool;
use APR::Table;
use APR::HTTP::Headers::Compat;

my ( $h, $h2 );
sub j { join( "|", @_ ) }

my $Pool = APR::Pool->new;

sub mk(@) {

t/pod.t  view on Meta::CPAN

#!perl -T

use Test::More;
eval "use Test::Pod 1.14";
plan skip_all => "Test::Pod 1.14 required for testing POD" if $@;
all_pod_files_ok();

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