samples/with.pl

   1 #!/usr/bin/env perl
   2
   3 package Deuce;
   4
   5 use strict;
   6 use warnings;
   7
   8 sub new { my $class = shift; bless { id => shift }, $class }
   9
  10 sub hlagh { my $self = shift; print "Deuce::hlagh $self->{id}\n" }
  11
  12
  13 package main;
  14
  15 use strict;
  16 use warnings;
  17
  18 use lib 'blib/lib';
  19
  20 sub hlagh { print "Pants::hlagh\n" }
  21
  22 our @ISA;
  23 push @ISA, 'Deuce';
  24 my $deuce = new Deuce 1;
  25 my $d = new Deuce 3;
  26
  27 hlagh;         # Pants::hlagh
  28
  29 {
  30  use with \$deuce;
  31  hlagh;        # Deuce::hlagh 1
  32  main::hlagh;  # Pants::hlagh
  33
  34  {
  35   use with \Deuce->new(2); # Constant blessed reference
  36   hlagh;       # Deuce::hlagh 2
  37  }
  38
  39  hlagh;        # Deuce::hlagh 1
  40
  41  no with;
  42  hlagh;        # Pants::hlagh
  43 }
  44
  45 hlagh;         # Pants::hlagh