File Coverage

blib/lib/CGI/Untaint/hex.pm
Criterion Covered Total %
statement 7 7 100.0
branch n/a
condition n/a
subroutine 3 3 100.0
pod n/a
total 10 10 100.0


line stmt bran cond sub pod time code
1             package CGI::Untaint::hex;
2              
3 1     1   4 use strict;
  1         1  
  1         32  
4 1     1   4 use base 'CGI::Untaint::object';
  1         1  
  1         116  
5              
6             sub _untaint_re {
7 4     4   34 qr/^\s*([abcdef1234567890]+)\s*$/i
8             }
9              
10             =head1 NAME
11              
12             CGI::Untaint::hex - validate as a hexadecimal value
13              
14             =head1 SYNOPSIS
15              
16             my $id = $handler->extract(-as_hex => 'hexvalue');
17              
18             =head1 DESCRIPTION
19              
20             This Input Handler verifies that it is dealing with a hexadecimal
21             value.
22              
23             =head1 AUTHOR
24              
25             Tony Bowden, Ekasei@tmtm.comE.
26              
27             =head1 COPYRIGHT
28              
29             Copyright (C) 2001 Tony Bowden. All rights reserved.
30              
31             This module is free software; you can redistribute it and/or modify
32             it under the same terms as Perl itself.
33              
34             =cut
35              
36             1;