Re: URI:: Find & Vertical bar ('|') in URL

Rosina Bignall wrote:
So, now my question is, is there a way to just add characters to the
original uric_set, something like

sub uric_set {
my $uric_set = URI::Find->uric_set;
$uric_set.='\|';
return $uric_set;
}

Obviously, this doesn't work as is

That's not at all obvious. I would have expected that to work. Can
you be more specific about how it "doesn't work"? What errors does it
generate?

and needs somehow to properly reference
the original uric_set from the URI::Find parent class.

Without looking at the source of the original module, I'd simply try:
sub uric_set {
my $obj = shift;
my $uric_set = $obj->SUPER::uric_set();
$uric_set .= '\|';
return $uric_set;
}

Paul Lalli

.

Relevant Pages

  • Re: URI:: Find & Vertical bar (|) in URL
    ... Rosina Bignall wrote: ... sub uric_set { ... your characters here ... Perl help, tutorials, and examples: http://johnbokma.com/perl/ ...
    (comp.lang.perl.misc)
  • sitemap generator for Perl
    ... I want to run the sitemap generator ... Returns the minimum number of links to traverse from the root URL of ... my $class = shift; ...
    (perl.beginners)
  • Re: How can I create instantiable objects (not classes)?
    ... a child object inherits not only its parent object's ... sub fee { ... my $class = shift; ... For example, an object of type Car might receive a message named "ticket," and since a car does not know what to do with a ticket, it would pass that message to an object of type Driver. ...
    (comp.lang.perl.misc)
  • Re: passing database data to a sub
    ... > I'm not sure of the difference, why isn't it a subroutine? ... > sure about this 'shift' thing anyway :-) ... > sub teardown ... > # Setup the template to use for the output. ...
    (perl.beginners)
  • Re: Packages and returning errors
    ... > array intact. ... sub is_a_instance_method { ... my $class = shift; ... You need to fix the scope of $error by moving its declaration outside ...
    (comp.lang.perl.misc)