projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
move userconfig and nodeconfig to stat
[spider.git]
/
perl
/
Route.pm
diff --git
a/perl/Route.pm
b/perl/Route.pm
index a9c521708bc1ddb4fbfdac36d3980a8e1aa84730..47b87dac8a6fcfd8cf82af6f687a37f6036f566f 100644
(file)
--- a/
perl/Route.pm
+++ b/
perl/Route.pm
@@
-166,6
+166,11
@@
sub config
return @out;
}
return @out;
}
+#
+# routing things
+#
+
+
#
# track destruction
#
#
# track destruction
#
@@
-187,7
+192,8
@@
sub fields
{
my $pkg = shift;
$pkg = ref $pkg if ref $pkg;
{
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;
}
push @out, keys %valid;
return @out;
}
@@
-200,7
+206,8
@@
sub field_prompt
{
my ($self, $ele) = @_;
my $pkg = ref $self;
{
my ($self, $ele) = @_;
my $pkg = ref $self;
- return $pkg::valid{$ele} || $valid{$ele};
+ my $val = "${pkg}::valid";
+ return $val->{$ele} || $valid{$ele};
}
#
}
#