[Bast-commits] r7752 - in trunk/Class-Accessor-Grouped: .
lib/Class/Accessor
caelum at dev.catalyst.perl.org
caelum at dev.catalyst.perl.org
Thu Oct 1 22:10:04 GMT 2009
Author: caelum
Date: 2009-10-01 22:10:04 +0000 (Thu, 01 Oct 2009)
New Revision: 7752
Removed:
trunk/Class-Accessor-Grouped/README
Modified:
trunk/Class-Accessor-Grouped/Changes
trunk/Class-Accessor-Grouped/Makefile.PL
trunk/Class-Accessor-Grouped/lib/Class/Accessor/Grouped.pm
Log:
remove optional dep
Modified: trunk/Class-Accessor-Grouped/Changes
===================================================================
--- trunk/Class-Accessor-Grouped/Changes 2009-10-01 15:59:30 UTC (rev 7751)
+++ trunk/Class-Accessor-Grouped/Changes 2009-10-01 22:10:04 UTC (rev 7752)
@@ -1,5 +1,8 @@
Revision history for Class::Accessor::Grouped.
+0.09001 Thu Oct 1 21:48:06 2009
+ - remove optional dep from Makefile.PL
+
0.09000 Sun Aug 23 20:08:09 2009
- release
Modified: trunk/Class-Accessor-Grouped/Makefile.PL
===================================================================
--- trunk/Class-Accessor-Grouped/Makefile.PL 2009-10-01 15:59:30 UTC (rev 7751)
+++ trunk/Class-Accessor-Grouped/Makefile.PL 2009-10-01 22:10:04 UTC (rev 7752)
@@ -13,11 +13,8 @@
requires 'MRO::Compat';
requires 'Class::Inspector';
requires 'Sub::Name' => '0.04';
+requires 'Class::XSAccessor';
-feature 'XS Accessor Support',
- -default => 0,
- 'Class::XSAccessor' => 0;
-
test_requires 'Sub::Identify';
clean_files "Class-Accessor-Grouped-* t/var";
Deleted: trunk/Class-Accessor-Grouped/README
===================================================================
--- trunk/Class-Accessor-Grouped/README 2009-10-01 15:59:30 UTC (rev 7751)
+++ trunk/Class-Accessor-Grouped/README 2009-10-01 22:10:04 UTC (rev 7752)
@@ -1,141 +0,0 @@
-NAME
- Class::Accessor::Grouped - Lets you build groups of accessors
-
-SYNOPSIS
-DESCRIPTION
- This class lets you build groups of accessors that will call different
- getters and setters.
-
-METHODS
- mk_group_accessors
- Arguments: $group, @fieldspec
- Returns: none
-
- Creates a set of accessors in a given group.
-
- $group is the name of the accessor group for the generated accessors;
- they will call get_$group($field) on get and set_$group($field, $value)
- on set.
-
- If you want to mimic Class::Accessor's mk_accessors $group has to be
- 'simple' to tell Class::Accessor::Grouped to use its own get_simple and
- set_simple methods.
-
- @fieldspec is a list of field/accessor names; if a fieldspec is a scalar
- this is used as both field and accessor name, if a listref it is
- expected to be of the form [ $accessor, $field ].
-
- mk_group_ro_accessors
- Arguments: $group, @fieldspec
- Returns: none
-
- Creates a set of read only accessors in a given group. Identical to
- <L:/mk_group_accessors> but accessors will throw an error if passed a
- value rather than setting the value.
-
- mk_group_wo_accessors
- Arguments: $group, @fieldspec
- Returns: none
-
- Creates a set of write only accessors in a given group. Identical to
- <L:/mk_group_accessors> but accessors will throw an error if not passed
- a value rather than getting the value.
-
- make_group_accessor
- Arguments: $group, $field
- Returns: $sub (\CODE)
-
- Returns a single accessor in a given group; called by mk_group_accessors
- for each entry in @fieldspec.
-
- make_group_ro_accessor
- Arguments: $group, $field
- Returns: $sub (\CODE)
-
- Returns a single read-only accessor in a given group; called by
- mk_group_ro_accessors for each entry in @fieldspec.
-
- make_group_wo_accessor
- Arguments: $group, $field
- Returns: $sub (\CODE)
-
- Returns a single write-only accessor in a given group; called by
- mk_group_wo_accessors for each entry in @fieldspec.
-
- get_simple
- Arguments: $field
- Returns: $value
-
- Simple getter for hash-based objects which returns the value for the
- field name passed as an argument.
-
- set_simple
- Arguments: $field, $new_value
- Returns: $new_value
-
- Simple setter for hash-based objects which sets and then returns the
- value for the field name passed as an argument.
-
- get_inherited
- Arguments: $field
- Returns: $value
-
- Simple getter for Classes and hash-based objects which returns the value
- for the field name passed as an argument. This behaves much like
- Class::Data::Accessor where the field can be set in a base class,
- inherited and changed in subclasses, and inherited and changed for
- object instances.
-
- set_inherited
- Arguments: $field, $new_value
- Returns: $new_value
-
- Simple setter for Classes and hash-based objects which sets and then
- returns the value for the field name passed as an argument. When called
- on a hash-based object it will set the appropriate hash key value. When
- called on a class, it will set a class level variable.
-
- Note:: This method will die if you try to set an object variable on a
- non hash-based object.
-
- get_component_class
- Arguments: $field
- Returns: $value
-
- Gets the value of the specified component class.
-
- __PACKAGE__->mk_group_accessors('component_class' => 'result_class');
-
- $self->result_class->method();
-
- ## same as
- $self->get_component_class('result_class')->method();
-
- set_component_class
- Arguments: $field, $class
- Returns: $new_value
-
- Inherited accessor that automatically loads the specified class before
- setting it. This method will die if the specified class could not be
- loaded.
-
- __PACKAGE__->mk_group_accessors('component_class' => 'result_class');
- __PACKAGE__->result_class('MyClass');
-
- $self->result_class->method();
-
- get_super_paths
- Returns a list of 'parent' or 'super' class names that the current class
- inherited from.
-
-AUTHORS
- Matt S. Trout <mst at shadowcatsystems.co.uk> Christopher H. Laco
- <claco at chrislaco.com>
-
- With contributions from:
-
- Guillermo Roditi <groditi at cpan.org>
-
-LICENSE
- You may distribute this code under the same terms as Perl itself.
-
Modified: trunk/Class-Accessor-Grouped/lib/Class/Accessor/Grouped.pm
===================================================================
--- trunk/Class-Accessor-Grouped/lib/Class/Accessor/Grouped.pm 2009-10-01 15:59:30 UTC (rev 7751)
+++ trunk/Class-Accessor-Grouped/lib/Class/Accessor/Grouped.pm 2009-10-01 22:10:04 UTC (rev 7752)
@@ -7,24 +7,9 @@
use MRO::Compat;
use Sub::Name ();
-our $VERSION = '0.09000';
+our $VERSION = '0.09001';
+$VERSION = eval $VERSION;
-BEGIN {
- our $hasXS;
-
- sub _hasXS {
- return $hasXS if defined $hasXS;
-
- $hasXS = 0;
- eval {
- require Class::XSAccessor;
- $hasXS = 1;
- };
-
- return $hasXS;
- }
-}
-
=head1 NAME
Class::Accessor::Grouped - Lets you build groups of accessors
@@ -453,6 +438,24 @@
return @{mro::get_linear_isa($class)};
};
+# This is now a hard, rather than optional dep. Since we dep on Sub::Name, we no
+# longer care about not using XS modules.
+{
+ our $hasXS;
+
+ sub _hasXS {
+ return $hasXS if defined $hasXS;
+
+ $hasXS = 0;
+ eval {
+ require Class::XSAccessor;
+ $hasXS = 1;
+ };
+
+ return $hasXS;
+ }
+}
+
1;
=head1 AUTHORS
More information about the Bast-commits
mailing list