BEGIN { plan
tests
=> 4 }
my
$obj
= SomeObj->new();
my
$handler
= SAXDumper->new;
my
$tester
= XML::Generator::PerlData->new(
Handler
=>
$handler
);
my
%opts
= (
processing_instructions
=> [
'xml-stylesheet'
=> {
href
=>
'/path/to/stylesheet.xsl'
,
type
=>
'text/xml'
,
},
'xml-stylesheet'
=> {
href
=>
'/path/to/second/stylesheet.xsl'
,
type
=>
'text/xml'
,
}
]);
$tester
->parse(
$obj
,
%opts
);
ok(
$stack
[1]->{Target} eq
'xml-stylesheet'
);
ok(
$stack
[1]->{Data} =~ m|href=
"/path/to/stylesheet.xsl"
| );
ok(
$stack
[2]->{Target} eq
'xml-stylesheet'
);
ok(
$stack
[2]->{Data} =~ m|href=
"/path/to/second/stylesheet.xsl"
| );
sub
new {
my
$proto
=
shift
;
my
%args
=
@_
;
my
%sh
= (
foo
=>
'foobie'
,
bar
=>
'barbie'
,
baz
=>
'bazly'
);
my
@sa
= (
'one'
,
'two'
,
'three'
);
my
@sa2
= (
'four'
,
'five'
,
'six'
);
my
@sa3
= (
'seven'
,
'eight'
,
'nine'
);
my
%hashofrefs
= (
array
=> \
@sa
,
hash
=> \
%sh
);
my
@aofas
= ( \
@sa
, \
@sa2
, \
@sa3
);
my
%sh2
= (
foo
=>
'foobie'
,
zoix
=> \
%sh
,
bar
=>
'barbie'
,
hork
=> \
@sa
,
baz
=>
'bazly'
,
bibble
=> \
%hashofrefs
,
freep
=>
'funk'
,
fibble
=> \
@aofas
);
$args
{yick} = \
%sh2
;
my
$class
=
ref
(
$proto
) ||
$proto
;
my
$self
=
bless
( \
%args
,
$class
);
return
$self
;
}
1;
sub
new {
my
(
$proto
,
%args
) =
@_
;
my
$class
=
ref
(
$proto
) ||
$proto
;
my
$self
= \
%args
;
bless
(
$self
,
$class
);
return
$self
;
}
sub
AUTOLOAD {
my
(
$self
,
$other
) =
@_
;
my
$called_sub
=
$AUTOLOAD
;
$called_sub
=~ s/.+:://;
return
if
$called_sub
eq
'DESTROY'
;
push
(
@main::stack
,
$other
);
}
1;