[catagits/Catalyst-Runtime.git] / t / lib / TestApp / ActionRole / TestMatchCaptures.pm

package TestApp::ActionRole::TestMatchCaptures;

use Moose::Role;
use namespace::autoclean;

sub match_captures {
    my ($self, $c, $cap) = @_;
    if ($cap->[0] eq 'force') {
        $c->res->header( 'X-TestAppActionTestMatchCaptures', 'forcing' );
        return 1;
    } else {
        $c->res->header( 'X-TestAppActionTestMatchCaptures', 'fallthrough' );
        return 0;
    }
}

1;
Commit	Line	Data
1279064a	1	package TestApp::ActionRole::TestMatchCaptures;
	2
	3	use Moose::Role;
	4	use namespace::autoclean;
	5
	6	sub match_captures {
	7	my ($self, $c, $cap) = @_;
	8	if ($cap->[0] eq 'force') {
	9	$c->res->header( 'X-TestAppActionTestMatchCaptures', 'forcing' );
	10	return 1;
	11	} else {
	12	$c->res->header( 'X-TestAppActionTestMatchCaptures', 'fallthrough' );
	13	return 0;
	14	}
	15	}
	16
	17	1;