lib/Fumo/Controller/Branch.pm

   1 package Fumo::Controller::Branch;
   2
   3 use strict;
   4 use warnings;
   5 use base 'Catalyst::Controller';
   6
   7 use Data::Dumper;
   8
   9 =head1 NAME
  10
  11 Fumo::Controller::Branch - Catalyst Controller
  12
  13 =head1 DESCRIPTION
  14
  15 Catalyst Controller representing a branch.
  16
  17 =head1 METHODS
  18
  19 =cut
  20
  21 =head2 branch_list
  22
  23 Lists the branches avalible to the user considering the
  24 /project  route so far.
  25
  26 =cut
  27
  28 sub branch_list : Chained('/project/project_instance')
  29                   PathPart('') Args(0) {
  30     my ($self, $c) = @_;
  31
  32     $c->stash->{branches} = [
  33         $c->model('Schema::Branch')->search( $c->stash->{search_stack} )
  34     ];
  35
  36     $c->stash->{template} = 'branch/branch_list.tt2';
  37 }
  38
  39 =head2 branch_instance
  40
  41 Passes on the current branch name within the chain.
  42
  43 =cut
  44
  45 sub branch_instance : Chained('/project/project_instance')
  46                       PathPart('') CaptureArgs(1) {
  47     my ($self, $c, $branch) = @_;
  48
  49     $c->stash->{search_stack}->{branch} = $branch;
  50 }
  51
  52 =head1 AUTHOR
  53
  54 Phil Jackson, phil@shellarchive.co.uk
  55
  56 =head1 LICENSE
  57
  58 This library is free software, you can redistribute it and/or modify
  59 it under the same terms as Perl itself.
  60
  61 =cut
  62
  63 1;