#!/usr/bin/perl
use strict;
use warnings;

sub test {

    my ( $result, $data, $date );

    return {
        res => 1 ? 1 : 0,
        errtext => $result->{errtext},
        info        => $data,
        timestamp      => ( $date->dmy('-') . ' ' . $date->hms ),
    };
}

##</code><code>##

>perltidy -pbp tidy_align.pl
#!/usr/bin/perl -w
use strict;
use warnings;

sub test {

    my ( $result, $data, $date );

    return {
        res => 1 ? 1 : 0,
        errtext   => $result->{errtext},
        info      => $data,
        timestamp => ( $date->dmy('-') . ' ' . $date->hms ),
    };
}