lib/Plack/Middleware/Debug/Dancer/Version.pm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

package Plack::Middleware::Debug::Dancer::Version;

# ABSTRACT: Show Dancer's version

use strict;
use warnings;
use parent qw(Plack::Middleware::Debug::Base);

sub run {
    my ( $self, $env, $panel ) = @_;

    return sub {
        $panel->title('Dancer::Version');
        $panel->nav_title('Dancer::Version');
        $panel->nav_subtitle($Dancer::VERSION);
    };
}

1;