File Coverage

lib/DR/Tnt/Msgpack/Types.pm
Criterion Covered Total %
statement 30 30 100.0
branch n/a
condition n/a
subroutine 14 14 100.0
pod 6 6 100.0
total 50 50 100.0


line stmt bran cond sub pod time code
1 11     11   48 use utf8;
  11         13  
  11         40  
2 11     11   234 use strict;
  11         15  
  11         138  
3 11     11   35 use warnings;
  11         14  
  11         339  
4              
5             package DR::Tnt::Msgpack::Types;
6 11     11   42 use base 'Exporter';
  11         18  
  11         903  
7              
8 11     11   3058 use DR::Tnt::Msgpack::Types::Int;
  11         16  
  11         244  
9 11     11   2921 use DR::Tnt::Msgpack::Types::Str;
  11         18  
  11         229  
10 11     11   2849 use DR::Tnt::Msgpack::Types::Blob;
  11         18  
  11         237  
11 11     11   2941 use DR::Tnt::Msgpack::Types::Bool;
  11         21  
  11         2045  
12              
13             our %EXPORT_TAGS = (
14             'all' => [
15             'mp_int',
16             'mp_bool',
17             'mp_string',
18             'mp_blob',
19              
20             'mp_true',
21             'mp_false',
22             ]
23             );
24              
25             our @EXPORT_OK = @{ $EXPORT_TAGS{all} };
26              
27              
28             sub mp_int($) {
29 19     19 1 3354 DR::Tnt::Msgpack::Types::Int->new($_[0]);
30             }
31             sub mp_string($) {
32 23     23 1 2921 DR::Tnt::Msgpack::Types::Str->new($_[0]);
33             }
34             sub mp_blob($) {
35 13     13 1 47 DR::Tnt::Msgpack::Types::Blob->new($_[0]);
36             }
37              
38             sub mp_bool($) {
39 4     4 1 75 DR::Tnt::Msgpack::Types::Bool->new($_[0]);
40             }
41             sub mp_true() {
42 10     10 1 927 DR::Tnt::Msgpack::Types::Bool->new(1);
43             }
44             sub mp_false() {
45 8     8 1 414 DR::Tnt::Msgpack::Types::Bool->new(0);
46             }
47              
48             =head1 NAME
49              
50             DR::Tnt::Msgpack::Types - types for msgpack.
51              
52             =head1 SYNOPSIS
53              
54             use DR::Tnt::Msgpack::Types;
55              
56             # pack as msgpack INT
57             msgpack(mp_int(123));
58              
59             # pack number as string
60             msgpack(mp_string(123));
61              
62             # bools
63             msgpack(mp_true);
64             msgpack(mp_false);
65             msgpack(mp_bool(1));
66             msgpack(mp_bool(0));
67              
68              
69             # blob
70             msgpack(mp_blob $blob);
71              
72              
73             =head1 DESCRIPTION
74              
75             Perl doesn't differ C<123> and C<'123'>:
76              
77             msgpack(123);
78             msgpack('123'); # the same
79              
80             From time to time You want to pack numbers as strings (for example You
81             use tarantool's STR-index for user's texts, that contain numbers, too).
82              
83             So You can use C constructor for L.
84              
85             =head1 METHODS
86              
87             =over
88              
89             =item mp_int($)
90              
91             Create L object. Its method C
92             packs number as msgpack signed integer value.
93              
94             =item mp_string($)
95              
96             Create L object. Its method C
97             packs perl scalar as msgpack string.
98              
99             =item mp_blob($)
100              
101             Create L object. Its method C
102             packs perl scalar as msgpack bin object.
103              
104             =item mp_bool($) and shortcuts mp_true/mp_false
105              
106             Create L object. Its method C
107             package perl scalar as msgpack boolean.
108              
109             =back
110              
111             =cut
112             1;