File Coverage

blib/lib/Class/MakeMethods/Template/Class.pm

Criterion	Covered	Total	%
statement	11	12	91.6
branch			n/a
condition			n/a
subroutine	5	6	83.3
pod	2	3	66.6
total	18	21	85.7

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;