From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

JJNAPIORK / Catalyst-Runtime-5.90132 / lib / Catalyst / DispatchType / Index.pm 

            

              
1
2
3
4
5
—
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
—
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
—
60
61
62
63
64
65
66
67
68
69
70
71
72
73
—
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
—
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107

              
package Catalyst::DispatchType::Index;
use Moose;
extends 'Catalyst::DispatchType';
use namespace::clean -except => 'meta';
=head1 NAME
Catalyst::DispatchType::Index - Index DispatchType
=head1 SYNOPSIS
See L<Catalyst::DispatchType>.
=head1 DESCRIPTION
Dispatch type managing behaviour for index pages.  For more information on
dispatch types, see:
=over 4
=item * L<Catalyst::Manual::Intro> for how they affect application authors
=item * L<Catalyst::DispatchType> for implementation information.
=back
=cut
has _actions => (
    is => 'rw', isa => 'HashRef', default => sub { +{} }
);
=head1 METHODS
=head2 $self->match( $c, $path )
Check if there's an index action for a given path, and set it up to use it
if there is; only matches a full URI - if $c->req->args is already set
this DispatchType is guaranteed not to match.
=cut
sub match {
    my ( $self, $c, $path ) = @_;
    return if @{ $c->req->args };
    my $result = $c->get_action( 'index', $path );
    return 0 unless $result && exists $self->_actions->{ $result->reverse };
    if ($result && $result->match($c)) {
        $c->action($result);
        $c->namespace( $result->namespace );
        $c->req->action('index');
        $c->req->match( $c->req->path );
        return 1;
    }
    return 0;
}
=head2 $self->register( $c, $action )
Register an action with this DispatchType.
=cut
sub register {
    my ( $self, $c, $action ) = @_;
    $self->_actions->{ $action->reverse } = $action if $action->name eq 'index';
    return 1;
}
=head2 $self->uri_for_action( $action, $captures )
get a URI part for an action; always returns undef is $captures is set
since index actions don't have captures
=cut
sub uri_for_action {
    my ( $self, $action, $captures ) = @_;
    return undef if @$captures;
    return undef unless exists $self->_actions->{ $action->reverse };
    return "/".$action->namespace;
}
sub _is_low_precedence { 1 }
=head1 AUTHORS
Catalyst Contributors, see Catalyst.pm
=head1 COPYRIGHT
This library is free software. You can redistribute it and/or modify it under
the same terms as Perl itself.
=cut
__PACKAGE__->meta->make_immutable;
1;