/usr/share/doc/libindirect-perl/examples/indirect.pl is in libindirect-perl 0.31-1.
This file is owned by root:root, with mode 0o755.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 | #!/usr/bin/env perl
#use strict;
#use warnings;
use lib qw<blib/lib blib/arch>;
sub Hlagh::new { my $class = shift; bless { }, ref($class) || $class ; }
sub foo { shift; print "foo $_[0]\n" }
sub bar { print "wut\n"; }
my $bar = bless { }, 'main';
my %h;
my $x = 1;
no indirect;
$x = new Hlagh 1, 2, 3;
my $y = slap $x "what", 5;
$h{foo} = 12;
use indirect;
foo 4, 5;
no indirect;
my $pkg = 'Hlagh';
my $cb = 'new';
foo(6, 7, 8); my $y = new $_ qr/bar/;
my $y = Hlagh->new;
$y = new Hlagh;
my $z = foo meh, 1, 2;
$y = meh $x, 7;
$y = foo(3, 4);
$y = Hlagh->new();
$y = Hlagh->new(1, 2, 3);
$y = Hlagh->$cb;
$y = new Hlagh;
$y = new Hlagh 1, 2, 3;
$y =
new
Hlagh
1 ,
2, 3;
$y = new $pkg;
$y = new $pkg 'what';
$y = $pkg->new;
$y = $pkg->new(1, 2, 3);
$y = $pkg->$cb;
$y = new(Hlagh);
$y = new { Hlagh };
$y = new { $y };
$y = Hlagh
-> new
( 1 , 2, 3);
$y = Hlagh
-> $ cb
( 1 , 2, 3);
$y = new Hlagh $,;
$y = new Hlagh ',';
print { $^H{dongs} } 'bleh';
print STDERR 1;
print STDERR 'what';
print STDERR q{wat};
my $fh;
print $fh 'dongs';
|