Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- package Catalyst::Plugin::HelpUtils;
- use strict;
- use warnings;
- our $VERSION = '1.0';
- =head1 NAME
- Catalyst::Plugin::HelpUtils
- =head1 SYNOPSIS
- use Catalyst qw/
- Helputils
- /;
- To use any of the utilities in this plugin e.g:
- $c->sum_it_all()
- =cut
- sub sum_it_all{
- my @items = @_;
- my $result = 0;
- foreach(@items) {
- $result += $_;
- }
- return $result;
- }
- 1;
Add Comment
Please, Sign In to add comment