Module naming help

Do you have a question? Post it now! No Registration Necessary.  Now with pictures!

I have written 2 modules which I intend to upload to CPAN.
I have chosen the names "Class::MethodVars" and "Class::Framework", they
would both be uploaded in Class-Framework-??.??.tar.gz unless anyone has
better suggestions.

The first currently called Class::MethodVars allows you to tag a sub with
":Method" and get access to "this" (in various configurable forms).

package MyClass;
use warnings;
use strict;

use Class::MethodVars qw( -fieldvars ),-field=>"internal_variable";

sub new :ClassMethod {
        return bless({},__CLASS__); # Class is provided my the magic
of :ClassMethod

sub mymethod :Method {
        my ($arg) = @_; # Note that object has been removed from @_
        $++; # This is an alias to this->

"this" can be renamed and/or configured to be a variable (which is
automatically added to "use vars" to remain strict-safe).

The second module is currently called Class::Framework. It combines
Class::MethodVars with fields (as in "use fields") and Class::Accessor to
build an class for you.

package MyClass;
use warnings;
use strict;

use Class::Framework
        -fields=>qw( a b cde ), # creates with ->mk_accessors(qw( a b cde ));
        -rofield=>"rofield", # creates with ->mk_ro_accessors(qw( rofield ));
        -hiddenfield=>"hidden"; # No accessor created.

# new() is inherited for you.

sub concat_fields :Method {
        return join("",this->a,this->b,this->cde,this->rofield,this->);

package main;

my $mc = MyClass->new(a=>1,b=>2,cde=>3,rofield=>4,hidden=>5);
print $mc->concat_fields; # Prints "12345"


----== Posted via Newsfeeds.Com - Unlimited-Unrestricted-Secure Usenet News==---- The #1 Newsgroup Service in the World! 120,000+
----= East and West-Coast Server Farms - Total Privacy via Encryption =----

Site Timeline