File Coverage

xsubs/clone.xs
Criterion Covered Total %
statement 6 6 100.0
branch 11 18 61.1
condition n/a
subroutine n/a
pod n/a
total 17 24 70.8


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: clone
13             #
14             # WRITTEN BY: Marcus Holland-Moritz ON: Oct 2002
15             # CHANGED BY: ON:
16             #
17             ################################################################################
18              
19             void
20             CBC::clone()
21             PREINIT:
22 74           CBC_METHOD(clone);
23             CBC *clone;
24             const char *class;
25              
26             PPCODE:
27             CT_DEBUG_METHOD;
28              
29 74 100         CHECK_VOID_CONTEXT;
    100          
    100          
30              
31 71 50         class = HvNAME(SvSTASH(SvRV(ST(0))));
    50          
    50          
    0          
    50          
    50          
32 71           clone = cbc_clone(aTHX_ THIS);
33              
34 71           ST(0) = sv_2mortal(cbc_bless(aTHX_ clone, class));
35              
36 71           XSRETURN(1);
37