my $seq = Tikz->seq($foo, $bar);
check_layers $seq, 'a sequence of two layered raw sets',
- <<'RES', [ qw/middle top/ ];
+ <<'RES', [ qw<middle top> ];
\begin{pgfonlayer}{middle}
\draw foo ;
\end{pgfonlayer}
is $@, '', 'calling an empty ->layer onto a sequence doesn\'t croak';
is "$res", "$seq", 'empty ->layer returns the object itself';
-check_layers $seq, 'a layered sequence', <<'RES', [ qw/bottom middle top/ ];
+check_layers $seq, 'a layered sequence', <<'RES', [ qw<bottom middle top> ];
\begin{pgfonlayer}{bottom}
\begin{pgfonlayer}{middle}
\draw foo ;
$seq->mod($red);
check_layers $seq, 'mods folding with layers 1',
- <<'RES', [ qw/bottom middle top/ ];
+ <<'RES', [ qw<bottom middle top> ];
\begin{pgfonlayer}{bottom}
\begin{scope} [color=red]
\begin{pgfonlayer}{middle}
$baz->mod($top);
check_layers $seq, 'mods folding with layers 2',
- <<'RES', [ qw/bottom middle top/ ];
+ <<'RES', [ qw<bottom middle top> ];
\begin{pgfonlayer}{bottom}
\begin{scope} [color=red]
\begin{pgfonlayer}{middle}
my $seq2 = Tikz->seq($bar, $baz, $foo)
->mod($red);
-check_layers $seq2, 'mods folding with layers 3', <<'RES', [ qw/middle top/ ];
+check_layers $seq2, 'mods folding with layers 3', <<'RES', [ qw<middle top> ];
\begin{scope} [color=red]
\begin{pgfonlayer}{top}
\begin{scope} [color=red]
my $seq3 = Tikz->seq($seq2, $bar)
->mod($red);
-check_layers $seq3, 'mods folding with layers 5', <<'RES', [ qw/middle top/ ];
+check_layers $seq3, 'mods folding with layers 5', <<'RES', [ qw<middle top> ];
\begin{scope} [color=red]
\draw qux ;
\begin{pgfonlayer}{middle}
$seq3 = Tikz->seq($bar, $seq2)
->mod($red);
-check_layers $seq3, 'mods folding with layers 6', <<'RES', [ qw/middle top/ ];
+check_layers $seq3, 'mods folding with layers 6', <<'RES', [ qw<middle top> ];
\begin{scope} [color=red]
\begin{pgfonlayer}{top}
\draw [color=red] bar ;