17 return bless [$value, $state], $class;
22 $self->[1] = ! $self->[1];
24 utf8::downgrade($self->[0]);
26 utf8::upgrade($self->[0]);
32 foreach my $t ("ASCII", "B\366se") {
33 my $length = length $t;
36 tie $u, 'UTF8Toggle', $t;
37 is (length $u, $length, "length of '$t'");
38 is (length $u, $length, "length of '$t'");
39 is (length $u, $length, "length of '$t'");
40 is (length $u, $length, "length of '$t'");
44 local $::TODO = "Need more tests!";