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

use File::Spec::Functions qw( catfile updir );
use Perl::Tidy;

my $rc_filepath = catfile( updir(), 'devel', 'conf', 'kinotidyrc' );
die "can't find kinotidyrc" unless -f $rc_filepath;

Perl::Tidy::perltidy( perltidyrc => $rc_filepath );