$center = "\\pgfqpoint{$half_width}{$half_width}";
$tile_size = "\\pgfqpoint{$width}{$width}";
- <<" PATTERN";
-\\pgfdeclarepatternformonly{#NAME#}{$low_left}{$up_right}{$tile_size}{%
- \\pgfpathcircle{$center}{$dot_width}
- \\pgfusepath{fill}
-}
- PATTERN
+ return [
+ "\\pgfdeclarepatternformonly{#NAME#}{$low_left}{$up_right}{$tile_size}{",
+ "\\pgfpathcircle{$center}{$dot_width}",
+ "\\pgfusepath{fill}",
+ '}',
+ ];
});
around 'BUILDARGS' => sub {
- my ($orig, $class, %args);
+ my ($orig, $class, %args) = @_;
confess('Can\'t specify an explicit template for a '. __PACKAGE__ .' pattern')
if exists $args{template};