CPAN::Groonga

tance('boo boo boo');
is_deeply(HTML::Tested::Seal->instance, $s);

my $v = $s->encrypt("hello");
isnt($v, "hello");
is($s->decrypt($v), "hello");
is($s->decrypt("dskdskd"), undef);
is(length($s->encr

0/);

undef $HTML::Tested::Seal::_instance;
my $s2 = HTML::Tested::Seal->instance('boo boo boo');
isnt($s, $s2);
is($s2->decrypt($v), "hello");

my $v2 = $v;
my $res;
for my $i ('a' .. 'z', 0 .. 9) {

b', is_sealed => 1);
$object->b($object->v);

$object->ht_render($stash);
ok(exists $stash->{v});
isnt($stash->{v}, 'hello');
is($s->decrypt($stash->{v}), 'hello');
is($stash->{v}, $stash->{b});

$res

$object = T1->ht_load_from_params(map { $_->name, $_ }
		map { $req->upload($_) } $req->upload);
isnt($object->v, undef);
is($object->v->filename, "$td/c.txt");
is($object->v->size, -s "$td/c.txt");

=b&id/);
unlike($qs2, qr/\?.*\?/);

my $r = HTML::Tested::Test::Request->new;
$r->parse_url($qs);
isnt($r->param('id'), undef);

$obj = T2->ht_load_from_params(map { $_, $r->param($_) } $r->param);
is

')->containee;
$ic2 = __PACKAGE__->ht_add_widget(::HT."::List", 'l2')->containee;

package main;

isnt($ic1, $ic2);
$ic1->ht_add_widget(::HTV, "v1");
$ic2->ht_add_widget(::HTV, "v2");

$obj = HT101->h