File Coverage

blib/lib/Lisp/Special.pm
Criterion Covered Total %
statement 8 8 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod 0 2 0.0
total 12 14 85.7


line stmt bran cond sub pod time code
1             package Lisp::Special;
2              
3             # special forms are perl code references that are blessed into
4             # this package.
5              
6 4     4   22 use strict;
  4         7  
  4         143  
7 4     4   21 use vars qw(@EXPORT_OK);
  4         6  
  4         514  
8              
9             require Exporter;
10             *import = \&Exporter::import;
11             @EXPORT_OK = qw(make_special specialp);
12              
13             sub make_special
14             {
15 40     40 0 173 bless $_[0], "Lisp::Special";
16             }
17              
18             sub specialp
19             {
20 512     512 0 2959 UNIVERSAL::isa($_[0], "Lisp::Special");
21             }
22              
23              
24             1;