#!/usr/bin/env perl use strict; use warnings; use FindBin; use lib ("$FindBin::Bin/../lib" =~ m[^(/.*)])[0]; use Fleck; our ($root_path, $dsn); ($root_path) = "$FindBin::Bin/.." =~ m[^(/.*)]; require "$root_path/local/config"; my $VERSION = '0.002000'; $VERSION =~ /(\d+)\.(\d{3})(\d{3})/; my $clean_version = "$1.$2"; $clean_version .= "-$3" if $3 + 0; my $core = Fleck->new( plugin_paths => ['Traspel::Fleck'], dsn => $dsn, version => $clean_version, ); $core->run;