line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
1
|
|
|
|
|
|
|
#pragma once |
2
|
|
|
|
|
|
|
#include "Hash.h" |
3
|
|
|
|
|
|
|
#include |
4
|
|
|
|
|
|
|
|
5
|
|
|
|
|
|
|
#ifndef REFCOUNTED_HE_EXISTS |
6
|
|
|
|
|
|
|
#define REFCOUNTED_HE_EXISTS 0x00000002 |
7
|
|
|
|
|
|
|
#endif |
8
|
|
|
|
|
|
|
|
9
|
|
|
|
|
|
|
namespace xs { |
10
|
|
|
|
|
|
|
|
11
|
|
|
|
|
|
|
using xs::my_perl; |
12
|
|
|
|
|
|
|
|
13
|
|
|
|
|
|
|
struct Scope { |
14
|
|
|
|
|
|
|
struct Hints { |
15
|
|
|
|
|
|
|
static void set (panda::string_view name, const Sv& value); |
16
|
|
|
|
|
|
|
static void remove (panda::string_view name); |
17
|
|
|
|
|
|
|
|
18
|
5
|
|
|
|
|
|
static bool exists (panda::string_view name) { |
19
|
5
|
|
|
|
|
|
return cop_hints_fetch_pvn(PL_curcop, name.data(), name.length(), 0, REFCOUNTED_HE_EXISTS); |
20
|
|
|
|
|
|
|
} |
21
|
|
|
|
|
|
|
|
22
|
7
|
|
|
|
|
|
static Scalar get (panda::string_view name) { |
23
|
7
|
|
|
|
|
|
return cop_hints_fetch_pvn(PL_curcop, name.data(), name.length(), 0, 0); |
24
|
|
|
|
|
|
|
} |
25
|
|
|
|
|
|
|
|
26
|
|
|
|
|
|
|
static Hash get (); |
27
|
|
|
|
|
|
|
|
28
|
|
|
|
|
|
|
static Scalar get_ct (panda::string_view name); |
29
|
|
|
|
|
|
|
}; |
30
|
|
|
|
|
|
|
}; |
31
|
|
|
|
|
|
|
|
32
|
|
|
|
|
|
|
} |