File Coverage

xsubs/clean.xs
Criterion Covered Total %
statement 4 4 100.0
branch 4 4 100.0
condition n/a
subroutine n/a
pod n/a
total 8 8 100.0


line stmt bran cond sub pod time code
1             ################################################################################
2             #
3             # Copyright (c) 2002-2020 Marcus Holland-Moritz. All rights reserved.
4             # This program is free software; you can redistribute it and/or modify
5             # it under the same terms as Perl itself.
6             #
7             ################################################################################
8              
9              
10             ################################################################################
11             #
12             # METHOD: clean
13             #
14             # WRITTEN BY: Marcus Holland-Moritz ON: Oct 2002
15             # CHANGED BY: ON:
16             #
17             ################################################################################
18              
19             void
20             CBC::clean()
21             PREINIT:
22 19736           CBC_METHOD(clean);
23              
24             CODE:
25             CT_DEBUG_METHOD;
26              
27 19732           free_parse_info(&THIS->cpi);
28              
29 19732 100         if (GIMME_V != G_VOID)
    100          
30 19649           XSRETURN(1);
31