1package Plack::Middleware::Debug::Dancer::Version; 2BEGIN { 3 $Plack::Middleware::Debug::Dancer::Version::VERSION = '0.03'; 4} 5 6# ABSTRACT: Show Dancer's version 7 8use strict; 9use warnings; 10use parent qw(Plack::Middleware::Debug::Base); 11 12sub run { 13 my ( $self, $env, $panel ) = @_; 14 15 return sub { 16 $panel->title('Dancer::Version'); 17 $panel->nav_title('Dancer::Version'); 18 $panel->nav_subtitle($Dancer::VERSION); 19 }; 20} 21 221; 23 24 25__END__ 26=pod 27 28=head1 NAME 29 30Plack::Middleware::Debug::Dancer::Version - Show Dancer's version 31 32=head1 VERSION 33 34version 0.03 35 36=head1 SYNOPSIS 37 38To activate this panel: 39 40 plack_middlewares: 41 Debug: 42 - panels 43 - 44 - Dancer::Version 45 46=head1 AUTHOR 47 48franck cuny <franck@lumberjaph.net> 49 50=head1 COPYRIGHT AND LICENSE 51 52This software is copyright (c) 2010 by franck cuny. 53 54This is free software; you can redistribute it and/or modify it under 55the same terms as the Perl 5 programming language system itself. 56 57=cut 58 59