APR-HTTP-Headers-Compat
view release on metacpan - search on metacpan
view release on metacpan or search on metacpan
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();
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"
);
#!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(@) {
#!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 distributionview release on metacpan - search on metacpan
( run in 0.712 second using v1.00-cache-2.02-grep-82fe00e-cpan-585fae043c8 )