r51175 - in /branches/upstream/libgeometry-primitive-perl/current: ./ lib/Geometry/ lib/Geometry/Primitive/ t/
jawnsy-guest at users.alioth.debian.org
jawnsy-guest at users.alioth.debian.org
Sun Jan 17 23:59:51 UTC 2010
Author: jawnsy-guest
Date: Sun Jan 17 23:59:46 2010
New Revision: 51175
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=51175
Log:
[svn-upgrade] Integrating new upstream version, libgeometry-primitive-perl (0.22)
Added:
branches/upstream/libgeometry-primitive-perl/current/lib/Geometry/Primitive/Dimension.pm
branches/upstream/libgeometry-primitive-perl/current/t/dimension.t
Modified:
branches/upstream/libgeometry-primitive-perl/current/Changes
branches/upstream/libgeometry-primitive-perl/current/MANIFEST
branches/upstream/libgeometry-primitive-perl/current/META.yml
branches/upstream/libgeometry-primitive-perl/current/lib/Geometry/Primitive.pm
branches/upstream/libgeometry-primitive-perl/current/lib/Geometry/Primitive/Arc.pm
branches/upstream/libgeometry-primitive-perl/current/lib/Geometry/Primitive/Bezier.pm
branches/upstream/libgeometry-primitive-perl/current/lib/Geometry/Primitive/Circle.pm
branches/upstream/libgeometry-primitive-perl/current/lib/Geometry/Primitive/Ellipse.pm
branches/upstream/libgeometry-primitive-perl/current/lib/Geometry/Primitive/Line.pm
branches/upstream/libgeometry-primitive-perl/current/lib/Geometry/Primitive/Point.pm
branches/upstream/libgeometry-primitive-perl/current/lib/Geometry/Primitive/Polygon.pm
branches/upstream/libgeometry-primitive-perl/current/lib/Geometry/Primitive/Rectangle.pm
Modified: branches/upstream/libgeometry-primitive-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libgeometry-primitive-perl/current/Changes?rev=51175&op=diff
==============================================================================
--- branches/upstream/libgeometry-primitive-perl/current/Changes (original)
+++ branches/upstream/libgeometry-primitive-perl/current/Changes Sun Jan 17 23:59:46 2010
@@ -1,4 +1,12 @@
Revision history for Geometry-Primitive
+
+0.22 January 9th, 2009
+ - Default Dimension width and height to 0
+
+0.21 January 9th, 2009
+ - Add Dimension
+ - De-moosify Graphics::Primitive and stop extending it everywhere, since
+ it's useless.
0.20 December 27th, 2009
- Use MooseX::Storage::Deferred
Modified: branches/upstream/libgeometry-primitive-perl/current/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libgeometry-primitive-perl/current/MANIFEST?rev=51175&op=diff
==============================================================================
--- branches/upstream/libgeometry-primitive-perl/current/MANIFEST (original)
+++ branches/upstream/libgeometry-primitive-perl/current/MANIFEST Sun Jan 17 23:59:46 2010
@@ -11,6 +11,7 @@
lib/Geometry/Primitive/Arc.pm
lib/Geometry/Primitive/Bezier.pm
lib/Geometry/Primitive/Circle.pm
+lib/Geometry/Primitive/Dimension.pm
lib/Geometry/Primitive/Ellipse.pm
lib/Geometry/Primitive/Equal.pm
lib/Geometry/Primitive/Line.pm
@@ -34,3 +35,4 @@
t/010-serialize.t
t/author/pod-coverage.t
t/author/pod.t
+t/dimension.t
Modified: branches/upstream/libgeometry-primitive-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libgeometry-primitive-perl/current/META.yml?rev=51175&op=diff
==============================================================================
--- branches/upstream/libgeometry-primitive-perl/current/META.yml (original)
+++ branches/upstream/libgeometry-primitive-perl/current/META.yml Sun Jan 17 23:59:46 2010
@@ -27,4 +27,4 @@
MooseX::Storage: 0.23
resources:
license: http://dev.perl.org/licenses/
-version: 0.20
+version: 0.22
Modified: branches/upstream/libgeometry-primitive-perl/current/lib/Geometry/Primitive.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libgeometry-primitive-perl/current/lib/Geometry/Primitive.pm?rev=51175&op=diff
==============================================================================
--- branches/upstream/libgeometry-primitive-perl/current/lib/Geometry/Primitive.pm (original)
+++ branches/upstream/libgeometry-primitive-perl/current/lib/Geometry/Primitive.pm Sun Jan 17 23:59:46 2010
@@ -1,12 +1,9 @@
package Geometry::Primitive;
-use Moose;
+use strict;
+use warnings;
-our $VERSION = '0.20';
+our $VERSION = '0.22';
our $AUTHORITY = 'cpan:GPHAT';
-
-__PACKAGE__->meta->make_immutable;
-
-no Moose;
1;
__END__
Modified: branches/upstream/libgeometry-primitive-perl/current/lib/Geometry/Primitive/Arc.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libgeometry-primitive-perl/current/lib/Geometry/Primitive/Arc.pm?rev=51175&op=diff
==============================================================================
--- branches/upstream/libgeometry-primitive-perl/current/lib/Geometry/Primitive/Arc.pm (original)
+++ branches/upstream/libgeometry-primitive-perl/current/lib/Geometry/Primitive/Arc.pm Sun Jan 17 23:59:46 2010
@@ -1,8 +1,6 @@
package Geometry::Primitive::Arc;
use Moose;
use MooseX::Storage;
-
-extends 'Geometry::Primitive';
with qw(Geometry::Primitive::Shape MooseX::Clone MooseX::Storage::Deferred);
Modified: branches/upstream/libgeometry-primitive-perl/current/lib/Geometry/Primitive/Bezier.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libgeometry-primitive-perl/current/lib/Geometry/Primitive/Bezier.pm?rev=51175&op=diff
==============================================================================
--- branches/upstream/libgeometry-primitive-perl/current/lib/Geometry/Primitive/Bezier.pm (original)
+++ branches/upstream/libgeometry-primitive-perl/current/lib/Geometry/Primitive/Bezier.pm Sun Jan 17 23:59:46 2010
@@ -1,8 +1,6 @@
package Geometry::Primitive::Bezier;
use Moose;
use MooseX::Storage;
-
-extends 'Geometry::Primitive';
with qw(Geometry::Primitive::Shape MooseX::Clone MooseX::Storage::Deferred);
Modified: branches/upstream/libgeometry-primitive-perl/current/lib/Geometry/Primitive/Circle.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libgeometry-primitive-perl/current/lib/Geometry/Primitive/Circle.pm?rev=51175&op=diff
==============================================================================
--- branches/upstream/libgeometry-primitive-perl/current/lib/Geometry/Primitive/Circle.pm (original)
+++ branches/upstream/libgeometry-primitive-perl/current/lib/Geometry/Primitive/Circle.pm Sun Jan 17 23:59:46 2010
@@ -1,8 +1,6 @@
package Geometry::Primitive::Circle;
use Moose;
use MooseX::Storage;
-
-extends 'Geometry::Primitive';
with qw(Geometry::Primitive::Shape MooseX::Clone MooseX::Storage::Deferred);
Added: branches/upstream/libgeometry-primitive-perl/current/lib/Geometry/Primitive/Dimension.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libgeometry-primitive-perl/current/lib/Geometry/Primitive/Dimension.pm?rev=51175&op=file
==============================================================================
--- branches/upstream/libgeometry-primitive-perl/current/lib/Geometry/Primitive/Dimension.pm (added)
+++ branches/upstream/libgeometry-primitive-perl/current/lib/Geometry/Primitive/Dimension.pm Sun Jan 17 23:59:46 2010
@@ -1,0 +1,87 @@
+package Geometry::Primitive::Dimension;
+use Moose;
+use Moose::Util::TypeConstraints;
+use MooseX::Storage;
+
+with qw(Geometry::Primitive::Equal MooseX::Clone MooseX::Storage::Deferred);
+
+use overload ('""' => 'to_string');
+
+has 'height' => (
+ is => 'rw',
+ isa => 'Num',
+ default => 0,
+);
+has 'width' => (
+ is => 'rw',
+ isa => 'Num',
+ default => 0
+);
+
+coerce 'Geometry::Primitive::Dimension'
+ => from 'ArrayRef'
+ => via { Geometry::Primitive::Dimension->new(width => $_->[0], height => $_->[1]) };
+
+sub equal_to {
+ my ($self, $other) = @_;
+
+ return (($self->width == $other->width) && $self->height == $other->height);
+}
+
+sub to_string {
+ my ($self) = @_;
+
+ return $self->width.'x'.$self->height;
+}
+
+__PACKAGE__->meta->make_immutable;
+
+no Moose;
+1;
+
+=head1 NAME
+
+Geometry::Primitive::Dimension - A width and height
+
+=head1 DESCRIPTION
+
+Geometry::Primitive::Dimension encapsulates a height and width.
+
+=head1 SYNOPSIS
+
+ use Geometry::Primitive::Dimension;
+
+ my $point = Geometry::Primitive::Dimeions->new(width => 100, height => 100);
+
+=head1 ATTRIBUTES
+
+=head2 height
+
+Set/Get the height value.
+
+=head2 width
+
+Set/Get the width value.
+
+=head1 METHODS
+
+=head2 new
+
+Creates a new Geometry::Primitive::Point.
+
+=head2 equal_to
+
+Compares this dimesion to another.
+
+=head2 to_string
+
+Return this dimesion as a string $widthx$height
+
+=head1 AUTHOR
+
+Cory Watson <gphat at cpan.org>
+
+=head1 COPYRIGHT & LICENSE
+
+You can redistribute and/or modify this code under the same terms as Perl
+itself.
Modified: branches/upstream/libgeometry-primitive-perl/current/lib/Geometry/Primitive/Ellipse.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libgeometry-primitive-perl/current/lib/Geometry/Primitive/Ellipse.pm?rev=51175&op=diff
==============================================================================
--- branches/upstream/libgeometry-primitive-perl/current/lib/Geometry/Primitive/Ellipse.pm (original)
+++ branches/upstream/libgeometry-primitive-perl/current/lib/Geometry/Primitive/Ellipse.pm Sun Jan 17 23:59:46 2010
@@ -3,8 +3,6 @@
use MooseX::Storage;
use Math::Trig ':pi';
-
-extends 'Geometry::Primitive';
with qw(Geometry::Primitive::Shape MooseX::Clone MooseX::Storage::Deferred);
Modified: branches/upstream/libgeometry-primitive-perl/current/lib/Geometry/Primitive/Line.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libgeometry-primitive-perl/current/lib/Geometry/Primitive/Line.pm?rev=51175&op=diff
==============================================================================
--- branches/upstream/libgeometry-primitive-perl/current/lib/Geometry/Primitive/Line.pm (original)
+++ branches/upstream/libgeometry-primitive-perl/current/lib/Geometry/Primitive/Line.pm Sun Jan 17 23:59:46 2010
@@ -1,8 +1,6 @@
package Geometry::Primitive::Line;
use Moose;
use MooseX::Storage;
-
-extends 'Geometry::Primitive';
with qw(Geometry::Primitive::Shape MooseX::Clone MooseX::Storage::Deferred);
Modified: branches/upstream/libgeometry-primitive-perl/current/lib/Geometry/Primitive/Point.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libgeometry-primitive-perl/current/lib/Geometry/Primitive/Point.pm?rev=51175&op=diff
==============================================================================
--- branches/upstream/libgeometry-primitive-perl/current/lib/Geometry/Primitive/Point.pm (original)
+++ branches/upstream/libgeometry-primitive-perl/current/lib/Geometry/Primitive/Point.pm Sun Jan 17 23:59:46 2010
@@ -2,8 +2,6 @@
use Moose;
use Moose::Util::TypeConstraints;
use MooseX::Storage;
-
-extends 'Geometry::Primitive';
with qw(Geometry::Primitive::Equal MooseX::Clone MooseX::Storage::Deferred);
Modified: branches/upstream/libgeometry-primitive-perl/current/lib/Geometry/Primitive/Polygon.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libgeometry-primitive-perl/current/lib/Geometry/Primitive/Polygon.pm?rev=51175&op=diff
==============================================================================
--- branches/upstream/libgeometry-primitive-perl/current/lib/Geometry/Primitive/Polygon.pm (original)
+++ branches/upstream/libgeometry-primitive-perl/current/lib/Geometry/Primitive/Polygon.pm Sun Jan 17 23:59:46 2010
@@ -1,8 +1,6 @@
package Geometry::Primitive::Polygon;
use Moose;
use MooseX::Storage;
-
-extends 'Geometry::Primitive';
with qw(Geometry::Primitive::Shape MooseX::Clone MooseX::Storage::Deferred);
Modified: branches/upstream/libgeometry-primitive-perl/current/lib/Geometry/Primitive/Rectangle.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libgeometry-primitive-perl/current/lib/Geometry/Primitive/Rectangle.pm?rev=51175&op=diff
==============================================================================
--- branches/upstream/libgeometry-primitive-perl/current/lib/Geometry/Primitive/Rectangle.pm (original)
+++ branches/upstream/libgeometry-primitive-perl/current/lib/Geometry/Primitive/Rectangle.pm Sun Jan 17 23:59:46 2010
@@ -3,8 +3,6 @@
use MooseX::Storage;
use Geometry::Primitive::Point;
-
-extends 'Geometry::Primitive';
with qw(Geometry::Primitive::Shape MooseX::Clone MooseX::Storage::Deferred);
Added: branches/upstream/libgeometry-primitive-perl/current/t/dimension.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libgeometry-primitive-perl/current/t/dimension.t?rev=51175&op=file
==============================================================================
--- branches/upstream/libgeometry-primitive-perl/current/t/dimension.t (added)
+++ branches/upstream/libgeometry-primitive-perl/current/t/dimension.t Sun Jan 17 23:59:46 2010
@@ -1,0 +1,17 @@
+use Test::More;
+use strict;
+
+BEGIN {
+ use_ok('Geometry::Primitive::Dimension');
+};
+
+my $dim = Geometry::Primitive::Dimension->new(width => 1, height => 2);
+cmp_ok($dim->width, '==', 1, 'width value');
+cmp_ok($dim->height, '==', 2, 'height value');
+
+my $dim2 = Geometry::Primitive::Dimension->new(width => 1, height => 2);
+ok($dim->equal_to($dim2), 'dimension equality');
+$dim2->width(0);
+ok(!$dim->equal_to($dim2), 'dimension inequality');
+
+done_testing;
More information about the Pkg-perl-cvs-commits
mailing list