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
|
#!perl -w
#$Id: as.t 26 2006-04-16 15:18:52Z demerphq $#
use Test::More tests => 4;
use_ok 'Data::Dump::Streamer';
import Data::Dump::Streamer as => 'DDS';
{
package Foo;
use base Data::Dump::Streamer;
import Data::Dump::Streamer as => 'Bar';
}
my $dds;
$dds = DDS->new;
ok($dds, "aliased namespace works for object construction");
$dds = Foo->new;
ok($dds, "derived package constructor works");
$dds = Bar->new;
ok($dds, "aliased namespace works with derived package constructor");
|
