view release on metacpan or  search on metacpan

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

}

sub SCALAR {
  my ( $self ) = @_;
  return scalar $self->_keys;
}

sub DESTROY {
  my ( $self ) = @_;
  #    use Data::Dumper;
  #    print STDERR "# ", Dumper($self);
  #  print STDERR "# <<<\n";
  #  $self->table->do(
  #    sub {
  #      my ( $k, $v ) = @_;
  #      print STDERR "# $k => $v\n";
  #    } );
  #  print STDERR "# >>>\n";
}

sub UNTIE { }

1;

# vim:ts=2:sw=2:sts=2:et:ft=perl

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

$h->if_match( qq(W/"foo", bar, baz), "bar" );
$h->if_none_match( 333 );

$h->if_range( "tag3" );
is( $h->if_range, qq("tag3") );

my $t = time;
$h->if_range( $t );
is( $h->if_range, $t );

print $h->as_string;