File Coverage

blib/lib/Language/Befunge/Wrapping.pm
Criterion Covered Total %
statement 10 10 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod 1 1 100.0
total 15 15 100.0


line stmt bran cond sub pod time code
1             #
2             # This file is part of Language-Befunge
3             #
4             # This software is copyright (c) 2003 by Jerome Quelin.
5             #
6             # This is free software; you can redistribute it and/or modify it under
7             # the same terms as the Perl 5 programming language system itself.
8             #
9 72     72   15644 use strict;
  72         95  
  72         1848  
10 72     72   210 use warnings;
  72         69  
  72         2754  
11              
12             package Language::Befunge::Wrapping;
13             # ABSTRACT: base wrapping class
14             $Language::Befunge::Wrapping::VERSION = '5.000';
15              
16             # -- CONSTRUCTOR
17              
18 72     72   629 use Class::XSAccessor constructor => 'new';
  72         1719  
  72         337  
19              
20              
21             # -- PUBLIC METHODS
22              
23             #
24             # $wrapping->wrap( $storage, $ip );
25             #
26             # Wrap $ip in $storage according to this module wrapping algorithm. Note
27             # that $ip is already out of bounds, ie, it has been moved once by LBI.
28             # As a side effect, $ip will have its position changed.
29             #
30             # LBW implements a wrapping that dies. It's meant to be overridden by
31             # other wrapping classes.
32             #
33 1     1 1 611 sub wrap { die 'wrapping not implemented in LBW'; }
34              
35             1;
36              
37             __END__