File Coverage

xsubs/initializer.xs
Criterion Covered Total %
statement 6 6 100.0
branch 11 12 91.6
condition n/a
subroutine n/a
pod n/a
total 17 18 94.4


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: initializer
13             #
14             # WRITTEN BY: Marcus Holland-Moritz ON: Jun 2003
15             # CHANGED BY: ON:
16             #
17             ################################################################################
18              
19             SV *
20             CBC::initializer(type, init = &PL_sv_undef)
21             const char *type
22             SV *init
23              
24             PREINIT:
25 275           CBC_METHOD(initializer);
26             MemberInfo mi;
27              
28             CODE:
29             CT_DEBUG_METHOD1("'%s'", type);
30              
31 275 100         CHECK_VOID_CONTEXT;
    100          
    100          
32              
33 263 100         if (!get_member_info(aTHX_ THIS, type, &mi, CBC_GMI_NO_CALC))
34 18           Perl_croak(aTHX_ "Cannot find '%s'", type);
35              
36 233 100         SvGETMAGIC(init);
    50          
37              
38 233           RETVAL = get_initializer_string(aTHX_ THIS, &mi, init, type);
39              
40             OUTPUT:
41             RETVAL
42