@@ -9,28+9,45 @@ LaTeX::TikZ::Mod::Pattern::Dots - A dotted pattern modifier.
=head1 VERSION
=head1 VERSION
-Version 0.01
+Version 0.02
=cut
=cut
-our $VERSION = '0.01';
+our $VERSION = '0.02';
use Sub::Name ();
use Sub::Name ();
-use Any::Moose;
+use Mouse;
+use Mouse::Util::TypeConstraints;
+
+=head1 RELATIONSHIPS
+
+This class inherits the L<LaTeX::TikZ::Mod::Pattern> class and its L<LaTeX::TikZ::Mod::Pattern/tag>, L<LaTeX::TikZ::Mod::Pattern/covers>, L<LaTeX::TikZ::Mod::Pattern/declare> and L<LaTeX::TikZ::Mod::Pattern/apply> methods.
+
+=cut
extends 'LaTeX::TikZ::Mod::Pattern';
extends 'LaTeX::TikZ::Mod::Pattern';
+=head1 ATTRIBUTES
+
+=head2 C<dot_width>
+
+=cut
+
has 'dot_width' => (
is => 'ro',
has 'dot_width' => (
is => 'ro',
- isa => 'Int',
+ isa => subtype('Num' => where { LaTeX::TikZ::Tools::numcmp($_, 0) >= 0 }),
default => 1,
);
default => 1,
);
+=head2 C<space_width>
+
+=cut
+
has 'space_width' => (
is => 'ro',
has 'space_width' => (
is => 'ro',
- isa => 'Int',
- default => 1,
+ isa => subtype('Num' => where { LaTeX::TikZ::Tools::numcmp($_, 0) >= 0 }),
+ default => 10,
);
my $W = Sub::Name::subname('WIDTH' => sub { sprintf '#WIDTH=%0.1f#', @_ });
);
my $W = Sub::Name::subname('WIDTH' => sub { sprintf '#WIDTH=%0.1f#', @_ });