replaced deprecated compute_all_applicable_attributes by get_all_attr…

…ibutes
jozef · Jul 30, 2009 · b41c60d · b41c60d
1 parent 31e6de4
commit b41c60d
Show file tree

Hide file tree

Showing 9 changed files with 26 additions and 11 deletions.
diff --git a/Build.PL b/Build.PL
@@ -9,6 +9,7 @@ my $builder = Module::Build->new(
     dist_version_from   => 'lib/Chart/OFC2.pm',
     requires => {
         'Moose'           => 0,
+        'Class::MOP'      => 0.65,      # - New method - get_all_attributes (nothingmuch)
         'Moose::Util::TypeConstraints'
                           => 0,
         'MooseX::StrictConstructor'
@@ -29,6 +30,14 @@ my $builder = Module::Build->new(
     create_makefile_pl => 'traditional',
     create_readme       => 1,
     sign                => 1,
+    meta_merge => {
+        resources => {
+            repository => 'http://github.com/jozef/chart-ofc2/',
+            bugtracker =>
+            'http://rt.cpan.org/NoAuth/Bugs.html?Dist=Chart-OFC2',
+        },
+        keywords => [ qw/ chart flash / ],
+    },
 );
 
 $builder->create_build_script();
diff --git a/Changes b/Changes
@@ -1,5 +1,9 @@
 Revision history for Chart::OFC2
 
+0.04    30.07.2009
+        - replaced deprecated compute_all_applicable_attributes by get_all_attributes
+          (thanks to John Goulah for pointing this out)
+
 0.03    26.11.2008
         - pie chart added
         - hbar chart added

diff --git a/MANIFEST b/MANIFEST
@@ -27,6 +27,8 @@ t/04_axis.t
 t/05_extremes.t
 t/06_element.t
 t/07_hbar.t
+t/08_line.t
+t/09_scatter.t
 t/distribution.t
 t/output/_footer.html
 t/output/_header.html

diff --git a/lib/Chart/OFC2.pm b/lib/Chart/OFC2.pm
@@ -60,7 +60,7 @@ use Moose;
 use Moose::Util::TypeConstraints;
 use MooseX::StrictConstructor;
 
-our $VERSION = '0.03';
+our $VERSION = '0.04';
 
 use Carp::Clan 'croak';
 use JSON::XS qw();

diff --git a/lib/Chart/OFC2/Axis.pm b/lib/Chart/OFC2/Axis.pm
@@ -21,7 +21,7 @@ use Moose;
 use Moose::Util::TypeConstraints;
 use MooseX::StrictConstructor;
 
-our $VERSION = '0.01';
+our $VERSION = '0.04';
 
 use Chart::OFC2;
 use Chart::OFC2::Labels;
@@ -90,7 +90,7 @@ sub TO_JSON {
     return {
         map  { my $v = $self->$_; (defined $v ? ($_ => $v) : ()) }
         grep { $_ ne 'name' }
-        map  { $_->name } $self->meta->compute_all_applicable_attributes
+        map  { $_->name } $self->meta->get_all_attributes
     };
 }
 

diff --git a/lib/Chart/OFC2/Element.pm b/lib/Chart/OFC2/Element.pm
@@ -19,7 +19,7 @@ use MooseX::StrictConstructor;
 
 use Chart::OFC2::Extremes;
 
-our $VERSION = '0.01';
+our $VERSION = '0.04';
 
 =head1 PROPERTIES
 
@@ -65,7 +65,7 @@ sub TO_JSON {
         grep { $_ ne 'type_name' }
         grep { $_ ne 'use_extremes' }
         map  { $_->name }
-        $self->meta->compute_all_applicable_attributes
+        $self->meta->get_all_attributes
     );
     $hash{'type'} = $self->type_name;
 

diff --git a/lib/Chart/OFC2/Labels.pm b/lib/Chart/OFC2/Labels.pm
@@ -27,7 +27,7 @@ use Moose;
 use Moose::Util::TypeConstraints;
 use MooseX::StrictConstructor;
 
-our $VERSION = '0.01';
+our $VERSION = '0.04';
 
 subtype 'Chart.OFC2.Labels'
     => as 'Object'
@@ -66,7 +66,7 @@ sub TO_JSON {
     if (defined $self->colour) {
         return {
             map  { my $v = $self->$_; (defined $v ? ($_ => $v) : ()) }
-            map  { $_->name } $self->meta->compute_all_applicable_attributes
+            map  { $_->name } $self->meta->get_all_attributes
         };
     }
     else {

diff --git a/lib/Chart/OFC2/Title.pm b/lib/Chart/OFC2/Title.pm
@@ -28,7 +28,7 @@ use Moose;
 use Moose::Util::TypeConstraints;
 use MooseX::StrictConstructor;
 
-our $VERSION = '0.01';
+our $VERSION = '0.04';
 
 subtype 'Chart.OFC2.Title'
     => as 'Object'
@@ -66,7 +66,7 @@ sub TO_JSON {
     return {
         map  { my $v = $self->$_; (defined $v ? ($_ => $v) : ()) }
         map  { $_->name }
-        $self->meta->compute_all_applicable_attributes
+        $self->meta->get_all_attributes
     };
 }
 

diff --git a/lib/Chart/OFC2/ToolTip.pm b/lib/Chart/OFC2/ToolTip.pm
@@ -29,7 +29,7 @@ use Moose;
 use Moose::Util::TypeConstraints;
 use MooseX::StrictConstructor;
 
-our $VERSION = '0.01';
+our $VERSION = '0.04';
 
 subtype 'Chart.OFC2.ToolTip'
     => as 'Object'
@@ -76,7 +76,7 @@ sub TO_JSON {
     return {
         map  { my $v = $self->$_; (defined $v ? ($_ => $v) : ()) }
         map  { $_->name }
-        $self->meta->compute_all_applicable_attributes
+        $self->meta->get_all_attributes
     };
 }