#!/usr/bin/env perl
# -*- mode: perl; coding: utf-8 -*-
#----------------------------------------
use strict;
use warnings FATAL => qw(all);
use FindBin; BEGIN { local @_ = "$FindBin::Bin/.."; do "$FindBin::Bin/../t_lib.pl" }
#----------------------------------------

use base qw/YATT::Lite::Object
	    YATT::Lite::Util::CmdLine/;
use fields qw/cf_file cf_debug/;

MY->run(\@ARGV);

sub cmd_test {
  (my MY $self, my @args) = @_;
  print "TEST(@args)\n";
}