Beefy Boxes and Bandwidth Generously Provided by pair Networks
P is for Practical

Re: Cancel/no-op a require

by tobyink (Abbot)
on Dec 07, 2012 at 13:35 UTC ( #1007735=note: print w/replies, xml ) Need Help??

in reply to Cancel/no-op a require

Also, if you really want to use a hook in @INC, this is how they work...

unshift @INC, sub { my $module = $_[1]; if ($module eq '') { $INC{$module}++; my $line = 0; return sub { unless ($line++) { $_ = "1;\n"; return 1; } return 0; } } return; }; require Foo; # no-op
perl -E'sub Monkey::do{say$_,for@_,do{($monkey=[caller(0)]->[3])=~s{::}{ }and$monkey}}"Monkey say"->Monkey::do'

Replies are listed 'Best First'.
Re^2: Cancel/no-op a require
by sedusedan (Monk) on Dec 07, 2012 at 13:44 UTC

    Ah, so this particular sentence in perlfunc is the one that gets me confused: The subroutine should return either nothing or else a list of up to three values in the following order.

    So instead of returning (undef, sub{...}) I should've just returned (sub {...}).

    Thanks, Toby.

      Also the innards of the function are kinda odd. You need to assign lines to $_ rather than returning them. I can understand why they did it that way, but it's pretty strange.

      perl -E'sub Monkey::do{say$_,for@_,do{($monkey=[caller(0)]->[3])=~s{::}{ }and$monkey}}"Monkey say"->Monkey::do'
      So instead of returning (undef, sub{...}) I should've just returned (sub {...}).

      The documentation is correct, returning your way might work, but is wrong according to the documentation. Instead I guess the important part you made wrong before is not returning a reference to a scalar for source code prefix as element 1. This is what I've been struggling with, which resulted in strange behaviour, like the returned filehandle in my returned list got read once, but not for a second file and such. Instead of returning a reference to a scalar, I tried to return undef, \'' or plain '', which all failed. When I started to really use a scalar, the return worked as documented: The file in my case got read using the handle and I could warn each line read in the given sub. It's important as well to really end the reading with 0 in the sub, else Perl will try to read data in some endless loop.

      my $prefix = ''; # undef is valid as well return (\$prefix, IO::File->new($path, '<:bytes'), sub { $_ =~ /^1;\s*$/ ? 0 : 1 }, undef);

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1007735]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others rifling through the Monastery: (5)
As of 2017-01-22 23:08 GMT
Find Nodes?
    Voting Booth?
    Do you watch meteor showers?

    Results (190 votes). Check out past polls.