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

package TestApp::Action::TestMatchCaptures;

use Moose;

extends 'Catalyst::Action';

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
ca5d34df	1	package TestApp::Action::TestMatchCaptures;
1279064a	2
ca5d34df	3	use Moose;
	4
	5	extends 'Catalyst::Action';
1279064a	6
	7	sub match_captures {
	8	my ($self, $c, $cap) = @_;
	9	if ($cap->[0] eq 'force') {
	10	$c->res->header( 'X-TestAppActionTestMatchCaptures', 'forcing' );
	11	return 1;
	12	} else {
	13	$c->res->header( 'X-TestAppActionTestMatchCaptures', 'fallthrough' );
	14	return 0;
	15	}
	16	}
	17
	18	1;