return @out;
}
+#
+# routing things
+#
+
+
#
# track destruction
#
{
my $pkg = shift;
$pkg = ref $pkg if ref $pkg;
- my @out, keys %$pkg::valid;
+ my $val = "${pkg}::valid";
+ my @out = keys %$val;
push @out, keys %valid;
return @out;
}
{
my ($self, $ele) = @_;
my $pkg = ref $self;
- return $pkg::valid{$ele} || $valid{$ele};
+ my $val = "${pkg}::valid";
+ return $val->{$ele} || $valid{$ele};
}
#