File Coverage

blib/lib/CGI/Application/Plugin/ActionDispatch/Attributes.pm

Criterion	Covered	Total	%
statement	27	27	100.0
branch	9	10	90.0
condition			n/a
subroutine	5	5	100.0
pod	0	1	0.0
total	41	43	95.3

package CGI::Application::Plugin::ActionDispatch::Attributes;

use attributes;
use strict;
use Data::Dumper;

our $VERSION = '0.1';

my @attributes;
my %attr_handlers;

my %inited; # Allow multiple CGI::Applications to be inited separately in mod_perl enivironment

# MODIFY_CODE_ATTRIBUTES needs to be in the inheritance tree.
push @CGI::Application::ISA, 'CGI::Application::Plugin::ActionDispatch::Attributes'
	unless grep /^CGI::Application::Plugin::ActionDispatch::Attributes$/, @CGI::Application::ISA;

sub MODIFY_CODE_ATTRIBUTES {
	my($class, $code, @attrs) = @_;

	foreach (@attrs) {
		# Parse the attribute string ex: Regex('^/foo/bar/(\d+)/').
		my($method, $params) = /^(.*?)(?:\(\s*(.+?)\s*\))?$/;

    if (defined $params) {
		  ($params =~ s/^'(.*)'$/$1/) || ($params =~ s/^"(.*)"/$1/)
		}

		# Attribute definition.
		if($method eq 'ATTR') {
			$attr_handlers{$code} = $params
		}
		# Is a custom attribute.
		else {
			my $handler = $class->can($method);
			next unless $handler;
			push(@attributes, [ $class, $method, $code, $params ] );
		}
	}

	return ();
}

sub init {
	my $class;
	foreach my $attr (@attributes) {
		$class	= $attr->[0];
		next if( exists $inited{$class});
		my $method	= $attr->[1];

		# calls:  class->method( code, method, params );
		$class->$method( $attr->[2], $attr->[1], $attr->[3]);
	}
	$inited{$class}++; # Mark our caller class inited now, so that it can be skipped on next run
}


1;
__END__