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