sub include :Private { my ($self, $c, @include) = @_ foreach (@include) { my %links = ( css => { ui => ["aristo/theme"], bracket => [qw/ bracket match /], datetime => ["datetimepicker"], table => ["themes/blue/style"], }->{$_}, js => { jq => ["jquery-1.7.2.min"], ui => ["jquery-ui-1.8.20.custom.min"], form => [qw/jquery.form jquery.validate.min phone-validation/], table => ["jquery.tablesorter.min"], datetime => [qw/ jquery-ui-timepicker-addon jquery-ui-slider-access/], bracket => ["bracket"], swap => ['jquery.swap'], }->{$_} ); push @{$c->stash->{css}}, $_ foreach (@{$links{css}}); push @{$c->stash->{js}}, $_ foreach (@{$links{js}}); } }