line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
1
|
|
|
|
|
|
|
# |
2
|
|
|
|
|
|
|
# Copyright (C) 2017 by Tomasz Konojacki |
3
|
|
|
|
|
|
|
# |
4
|
|
|
|
|
|
|
# This library is free software; you can redistribute it and/or modify |
5
|
|
|
|
|
|
|
# it under the same terms as Perl itself, either Perl version 5.24.0 or, |
6
|
|
|
|
|
|
|
# at your option, any later version of Perl 5 you may have available. |
7
|
|
|
|
|
|
|
# |
8
|
|
|
|
|
|
|
|
9
|
|
|
|
|
|
|
package Bytes::Random::XS; |
10
|
|
|
|
|
|
|
|
11
|
1
|
|
|
1
|
|
13826
|
use strict; |
|
1
|
|
|
|
|
1
|
|
|
1
|
|
|
|
|
23
|
|
12
|
1
|
|
|
1
|
|
2
|
use warnings; |
|
1
|
|
|
|
|
1
|
|
|
1
|
|
|
|
|
18
|
|
13
|
|
|
|
|
|
|
|
14
|
1
|
|
|
1
|
|
3
|
use XSLoader; |
|
1
|
|
|
|
|
3
|
|
|
1
|
|
|
|
|
30
|
|
15
|
1
|
|
|
1
|
|
374
|
use Exporter::Lite; |
|
1
|
|
|
|
|
477
|
|
|
1
|
|
|
|
|
4
|
|
16
|
|
|
|
|
|
|
|
17
|
|
|
|
|
|
|
our $VERSION = '0.01'; |
18
|
|
|
|
|
|
|
our @EXPORT_OK = qw/random_bytes/; |
19
|
|
|
|
|
|
|
|
20
|
|
|
|
|
|
|
XSLoader::load('Bytes::Random::XS', $VERSION); |
21
|
|
|
|
|
|
|
|
22
|
|
|
|
|
|
|
'cravf'; |
23
|
|
|
|
|
|
|
__END__ |