From cfdd733c17cfa4f1a43b827a656e9e53cc2524ac Mon Sep 17 00:00:00 2001 From: Andreas Brachold Date: Sat, 10 Nov 2007 17:53:53 +0000 Subject: * Remove unsed packages * Reorder exit routines --- lib/Class/MakeMethods/Template/Class.pm | 103 -------------------------------- 1 file changed, 103 deletions(-) delete mode 100644 lib/Class/MakeMethods/Template/Class.pm (limited to 'lib/Class/MakeMethods/Template/Class.pm') diff --git a/lib/Class/MakeMethods/Template/Class.pm b/lib/Class/MakeMethods/Template/Class.pm deleted file mode 100644 index c846709..0000000 --- a/lib/Class/MakeMethods/Template/Class.pm +++ /dev/null @@ -1,103 +0,0 @@ -package Class::MakeMethods::Template::Class; - -use Class::MakeMethods::Template::Generic '-isasubclass'; - -$VERSION = 1.008; -use strict; -require 5.0; -use Carp; - -=head1 NAME - -Class::MakeMethods::Template::Class - Associate information with a package - -=head1 SYNOPSIS - - package MyObject; - use Class::MakeMethods::Template::Class ( - scalar => [ 'foo' ] - ); - - package main; - - MyObject->foo('bar') - print MyObject->foo(); - -=head1 DESCRIPTION - -These meta-methods provide access to class-specific values. They are similar to Static, except that each subclass has separate values. - -=cut - -sub generic { - { - '-import' => { - 'Template::Generic:generic' => '*' - }, - 'modifier' => { - }, - 'code_expr' => { - '_VALUE_' => '_ATTR_{data}->{_SELF_CLASS_}', - }, - } -} - -######################################################################## - -=head2 Class:scalar - -Creates methods to handle a scalar variable in the declaring package. - -See the documentation on C for interfaces and behaviors. - -=cut - -######################################################################## - -=head2 Class:array - -Creates methods to handle a array variable in the declaring package. - -See the documentation on C for interfaces and behaviors. - -=cut - -sub array { - { - '-import' => { - 'Template::Generic:array' => '*', - }, - 'modifier' => { - '-all' => q{ _REF_VALUE_ or @{_ATTR_{data}->{_SELF_CLASS_}} = (); * }, - }, - 'code_expr' => { - '_VALUE_' => '\@{_ATTR_{data}->{_SELF_CLASS_}}', - }, - } -} - -######################################################################## - -=head2 Class:hash - -Creates methods to handle a hash variable in the declaring package. - -See the documentation on C for interfaces and behaviors. - -=cut - -sub hash { - { - '-import' => { - 'Template::Generic:hash' => '*', - }, - 'modifier' => { - '-all' => q{ _REF_VALUE_ or %{_ATTR_{data}->{_SELF_CLASS_}} = (); * }, - }, - 'code_expr' => { - '_VALUE_' => '\%{_ATTR_{data}->{_SELF_CLASS_}}', - }, - } -} - -1; -- cgit v1.2.3