File Coverage

blib/lib/Acme/Ukrop.pm
Criterion Covered Total %
statement 10 10 100.0
branch n/a
condition n/a
subroutine 3 3 100.0
pod n/a
total 13 13 100.0


line stmt bran cond sub pod time code
1             # Content-Encoding: koi8-u
2             #
3             # $Id: Ukrop.pm,v 1.3 2008/04/11 17:05:15 dk Exp $
4            
5 2     2   1091 use strict;
  2         3  
  2         78  
6            
7             package Acme::Ukrop;
8            
9 2     2   7 use vars qw($VERSION);
  2         3  
  2         360  
10            
11             $VERSION = '0.03';
12            
13             my %n = (
14             'взад' => 'return',
15             'або' => 'else',
16             'то' => '{',
17             'отож' => '}',
18             'так' => '',
19             'нехай' => 'my',
20             'кажи' => 'print',
21             'дiйство' => 'sub',
22             'доки' => 'while',
23             'якщо' => 'if',
24             'довжина' => 'length',
25             'геть' => 'break',
26             'вiдрiжемочи⌡що'=> 'chomp',
27             );
28            
29             my $k = join('|', sort keys %n);
30             my $nc = qr/[^a-zA-Z\x80-\xff]/;
31             $k = qr/(^|$nc)($k)(?=$|$nc)/;
32 2     2   8977 use Filter::Simple sub { s/$k/$1$n{$2}/gs } ;
  2         82367  
  2         21  
  1         307  
33            
34             1;
35            
36             =pod
37            
38             =encoding koi8-u
39            
40             =head1 NAME
41            
42             Acme::Ukrop - ukrop parser
43            
44             =head1 DESCRIPTION
45            
46             Первый Настоящий Укропопарсер магически придает программам написанным на Укропе
47             все возможности перла.
48            
49             =head1 SYNOPSIS
50            
51             use Acme::Ukrop;
52             доки (<>) то
53             вiдрiжемочи⌡що;
54             кажи "ти казав: $_\n";
55             так отож
56            
57             =head1 SEE ALSO
58            
59             http://community.livejournal.com/ru_ukrop/
60            
61             =head1 THANKS
62            
63             Kiev.pm for help with inseminating the Ukrop.
64            
65             =head1 AUTHOR
66            
67             Dmitry Karasik, Edmitry@karasik.eu.orgE.
68            
69             =cut