File Coverage

blib/lib/Graphics/Primitive/Operation/Stroke.pm

Criterion	Covered	Total	%
statement	1	3	33.3
branch			n/a
condition			n/a
subroutine	1	1	100.0
pod			n/a
total	2	4	50.0

package Graphics::Primitive::Operation::Stroke;
use Moose;
use MooseX::Storage;

extends 'Graphics::Primitive::Operation';

with 'MooseX::Clone';
with Storage (format => 'JSON', io => 'File');

use Graphics::Primitive::Brush;

has brush => (
    isa => 'Graphics::Primitive::Brush',
    is  => 'rw',
    default =>  sub { Graphics::Primitive::Brush->new },
    traits => [qw(Clone)]
);

__PACKAGE__->meta->make_immutable;

no Moose;
1;
__END__
=head1 NAME

Graphics::Primitive::Operation::Stroke - Draw along a path

=head1 DESCRIPTION

Graphics::Primitive::Operation::Stroke represents a stroke operation to be
performed on a path.

=head1 SYNOPSIS

  use Graphics::Primitive::Operation::Stroke;

  my $stroke = Graphics::Primitive::Operation::Stroke->new;
  $stroke->brush->width(2);

=head1 METHODS

=head2 Constructor

=over 4

=item I<new>

Creates a new Graphics::Primitive::Operation::Stroke. Uses a default
L<Brush|Graphics::Primitive::Brush>.

=back

=head2 Instance Methods

=over 4

=item I<brush>

Set/Get this Stroke's Brush

=back

=head1 AUTHOR

Cory Watson, C<< <[e-mail]> >>

=head1 COPYRIGHT & LICENSE

Copyright 2008-2010 by Cory G Watson.

This program is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.