=head1 VERSION
-Version 0.01
+Version 0.02
=cut
-our $VERSION = '0.01';
+our $VERSION = '0.02';
=head1 DESCRIPTION
has 'unit' => (
is => 'ro',
- isa => enum([ qw/cm pt/ ]),
+ isa => enum([ qw<cm pt> ]),
default => 'cm',
);
my $origin = $tikz->origin;
if (defined $origin) {
- my ($x, $y) = map $origin->$_, qw/x y/;
+ my ($x, $y) = map $origin->$_, qw<x y>;
$origin = "($x;$y)";
} else {
$origin = "(0;0)";
join $;, map {
defined() ? "$_" : '(undef)';
- } map($tikz->$_, qw/unit format scale width height/), $origin;
+ } map($tikz->$_, qw<unit format scale width height>), $origin;
}
=head2 C<render @sets>
}
}
- my @subsets = $set->isa('LaTeX::TikZ::Set::Sequence')
+ my @subsets = $set->does('LaTeX::TikZ::Set::Container')
? $set->kids
- : $set->isa('LaTeX::TikZ::Set::Path')
- ? $set->ops
- : ();
+ : ();
$find_mods_rec->($_, $layers, $others) for @subsets;
});
},
);
-__PACKAGE__->meta->make_immutable;
+__PACKAGE__->meta->make_immutable if any_moose() ne 'Moose';
=head1 SEE ALSO