projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
| inline |
side by side
move stuff around and try to get pc59 handling/generation more correct
[spider.git]
/
perl
/
Route
/
User.pm
diff --git
a/perl/Route/User.pm
b/perl/Route/User.pm
index d3cfb7d34abfec26b9f814a9141126665517e866..7bf19d44a5babf7c6d10a665fc0bb4e3cb0c35f8 100644
(file)
--- a/
perl/Route/User.pm
+++ b/
perl/Route/User.pm
@@
-110,6
+110,17
@@
sub nodes
return @{$self->{nodes}};
}
+#
+# pc59 entity encoding and decoding
+#
+sub enc_pc59
+{
+ my $self = shift;
+ my $sort = shift || 'U';
+ my $out = "$sort$self->{flags}$self->{call}";
+ return $out;
+}
+
#
# generic AUTOLOAD for accessors
#