File Coverage

web/cgi-bin/yatt.lib/YATT.pm

Criterion	Covered	Total	%
statement	24	27	88.8
branch	1	2	50.0
condition			n/a
subroutine	14	16	87.5
pod	0	10	0.0
total	39	55	70.9

#!/usr/bin/perl -w
# -*- mode: perl; coding: utf-8 -*-
package YATT;
require 5.007_001; # For sprintf reordering.

use strict;
use warnings FATAL => qw(all);
our $VERSION = '0.0_9';
use File::Basename;

BEGIN {
  unless (caller(2)) {
    unshift @INC, dirname(__PACKAGE__);
  }
}

use YATT::Util qw(escape decode_args attr named_attr);
use YATT::Util::Finalizer qw(capture);

# for user
sub breakpoint {}

# for YATT itself.
sub break_rc {}
sub break_after_rc {}
sub break_handler {}
sub break_dispatch {}
sub break_run {}

sub break_translator {}
sub break_parser {}
sub break_cursor {}

sub break_eval {}

unless (caller) {
  # XXX: To be written. It will become general purpose command dispatcher.
}

1;
__END__