* Remove unsed packages

* Reorder exit routines

1 files changed, 0 insertions, 178 deletions

diff --git a/lib/Class/MakeMethods/Template/ClassVar.pm b/lib/Class/MakeMethods/Template/ClassVar.pm
deleted file mode 100644
index a5a2478..0000000
--- a/lib/Class/MakeMethods/Template/ClassVar.pm
+++ /dev/null
@@ -1,178 +0,0 @@
-package Class::MakeMethods::Template::ClassVar;
-
-use Class::MakeMethods::Template::Generic '-isasubclass';
-
-$VERSION = 1.008;
-use strict;
-require 5.0;
-use Carp;
-
-=head1 NAME
-
-Class::MakeMethods::Template::ClassVar - Static methods with subclass variation
-
-=head1 SYNOPSIS
-
-  package MyObject;
-  use Class::MakeMethods::Template::ClassVar (
-    scalar          => [ 'foo' ]
-  );
-  
-  package main;
-
-  MyObject->foo('bar')
-  print MyObject->foo();
-
-  $MyObject::foo = 'bazillion';
-  print MyObject->foo();
-
-=head1 DESCRIPTION
-
-These meta-methods provide access to package (class global) variables,
-with the package determined at run-time.
-
-This is basically the same as the PackageVar meta-methods, except
-that PackageVar methods find the named variable in the package that
-defines the method, while ClassVar methods use the package the object
-is blessed into. As a result, subclasses will each store a distinct
-value for a ClassVar method, but will share the same value for a
-PackageVar or Static method.
-
-B<Common Parameters>: The following parameters are defined for ClassVar meta-methods.
-
-=over 4
-
-=item variable
-
-The name of the variable to store the value in. Defaults to the same name as the method.
-
-=back
-
-=cut
-
-sub generic {
-  {
-    '-import' => { 
-      'Template::Generic:generic' => '*' 
-    },
-    'params' => { 
-      'variable' => '*' 
-    },
-    'modifier' => {
-      '-all' => [ q{ no strict; * } ],
-    },
-    'code_expr' => {
-      '_VALUE_' => '${_SELF_CLASS_."::"._ATTR_{variable}}',
-    },
-  }
-}
-
-########################################################################
-
-=head2 Standard Methods
-
-The following methods from Generic should all be supported:
-
-  scalar
-  string
-  string_index (?)
-  number 
-  boolean
-  bits (?)
-  array (*)
-  hash (*)
-  tiedhash (?)
-  hash_of_arrays (?)
-  object (?)
-  instance (?)
-  array_of_objects (?)
-  code (?)
-  code_or_scalar (?)
-
-See L<Class::MakeMethods::Template::Generic> for the interfaces and behaviors of these method types.
-
-The items marked with a * above are specifically defined in this package, whereas the others are formed automatically by the interaction of this package's generic settings with the code templates provided by the Generic superclass. 
-
-The items marked with a ? above have not been tested sufficiently; please inform the author if they do not function as you would expect.
-
-=cut
-
-########################################################################
-
-sub array {
-  {
-    '-import' => { 
-      'Template::Generic:array' => '*',
-    },
-    'modifier' => {
-      '-all' => q{ no strict; _ENSURE_REF_VALUE_; * },
-    },
-    'code_expr' => {
-      '_ENSURE_REF_VALUE_' => q{ 
-	_REF_VALUE_ or @{_SELF_CLASS_."::"._ATTR_{variable}} = (); 
-      },
-      '_VALUE_' => '(\@{_SELF_CLASS_."::"._ATTR_{variable}})',
-    },
-  } 
-}
-
-########################################################################
-
-sub hash {
-  {
-    '-import' => { 
-      'Template::Generic:hash' => '*',
-    },
-    'modifier' => {
-      '-all' => q{ no strict; _ENSURE_REF_VALUE_; * },
-    },
-    'code_expr' => {
-      '_ENSURE_REF_VALUE_' => q{ 
-	_REF_VALUE_ or %{_SELF_CLASS_."::"._ATTR_{variable}} = (); 
-      },
-      '_VALUE_' => '(\%{_SELF_CLASS_."::"._ATTR_{variable}})',
-    },
-  } 
-}
-
-########################################################################
-
-=head2 vars
-
-This rewrite rule converts package variable names into ClassVar methods of the equivalent data type.
-
-Here's an example declaration:
-
-  package MyClass;
-  
-  use Class::MakeMethods::Template::ClassVar (
-    vars => '$VERSION @ISA'
-  );
-
-MyClass now has methods that get and set the contents of its $MyClass::VERSION and @MyClass::ISA package variables:
-
-  MyClass->VERSION( 2.4 );
-  MyClass->push_ISA( 'Exporter' );
-
-Subclasses can use these methods to adjust their own variables:
-
-  package MySubclass;
-  MySubclass->MyClass::push_ISA( 'MyClass' );
-  MySubclass->VERSION( 1.0 );
-
-=cut
-
-sub vars { 
-  my $mm_class = shift;
-  my @rewrite = map [ "Template::ClassVar:$_" ], qw( scalar array hash );
-  my %rewrite = ( '$' => 0, '@' => 1, '%' => 2 );
-  while (@_) {
-    my $name = shift;
-    my $data = shift;
-    $data =~ s/\A(.)//;
-    push @{ $rewrite[ $rewrite{ $1 } ] }, { 'name'=>$name, 'variable'=>$data };
-  }
-  return @rewrite;
-}
-
-1;