← Back to branch summary

~ubuntu-branches/ubuntu/lucid/libmodule-info-perl/lucid

« back to all changes in this revision

Viewing changes to t/lib/Foo.pm

  • Committer: Bazaar Package Importer
  • Author(s): Jay Bonci
  • Date: 2003-10-06 10:51:04 UTC
  • Revision ID: james.westby@ubuntu.com-20031006105104-1b67d55zyyay6jvo
Tags: upstream-0.24
Import upstream version 0.24

Show diffs side-by-side

added added

removed removed

Lines of Context:
t/lib/Foo.pm
 
1
package Foo;
 
2
 
 
3
use strict;
 
4
require Exporter;
 
5
require "t/lib/Foo.pm";
 
6
use vars qw(@ISA $VERSION);
 
7
$VERSION = 7.254;
 
8
 
 
9
@ISA = qw(This That What::Ever);
 
10
 
 
11
my $foo = 42;
 
12
 
 
13
{
 
14
    package Bar;
 
15
 
 
16
    my $bar = 23;
 
17
}
 
18
 
 
19
sub wibble {
 
20
    package Wibble;
 
21
    $foo = 42;
 
22
    return 66;
 
23
}
 
24
 
 
25
wibble('this is the function call');
 
26
{ no strict 'refs'; &{'wibble'}('this is a symref function call'); }
 
27
Foo->wibble(42);
 
28
{ local @ARGV = (bless {});  shift->wibble(42); }
 
29
my $obj = bless {};
 
30
$obj->wibble('bar');
 
31
my $method = 'wibble';
 
32
Foo->$method;
 
33
$obj->$method;
 
34
$obj->$method('bar');
 
35
Foo->$method('bar');
 
36
{
 
37
    no strict 'subs';
 
38
    $Foo::obj = bless {};
 
39
    $Foo::obj->wibble(main::STDOUT);
 
40
}
 
41
 
 
42
require 5.004;
 
43
use 5.004;
 
44
require 5;
 
45
use 5;
 
46
use lib qw(blahbityblahblah);
 
47
 
 
48
eval "require Text::Soundex";
 
49
 
 
50
sub croak {
 
51
    require Carp;
 
52
    Carp::croak(@_);
 
53
}
 
54
 
 
55
BEGIN {
 
56
    require 't/lib/Bar.pm';
 
57
}
 
58
 
 
59
my $mod = 't/lib/Bar.pm';
 
60
require $mod;