File Coverage

blib/lib/Net/API/Telegram/MaskPosition.pm
Criterion Covered Total %
statement 7 11 63.6
branch n/a
condition n/a
subroutine 3 7 42.8
pod 4 4 100.0
total 14 22 63.6


line stmt bran cond sub pod time code
1             # -*- perl -*-
2             ##----------------------------------------------------------------------------
3             ## Net/API/Telegram/MaskPosition.pm
4             ## Version 0.1
5             ## Copyright(c) 2019 Jacques Deguest
6             ## Author: Jacques Deguest <jack@deguest.jp>
7             ## Created 2019/05/29
8             ## Modified 2020/05/20
9             ## All rights reserved.
10             ##
11             ## This program is free software; you can redistribute it and/or modify it
12             ## under the same terms as Perl itself.
13             ##----------------------------------------------------------------------------
14             package Net::API::Telegram::MaskPosition;
15             BEGIN
16             {
17 1     1   820 use strict;
  1         2  
  1         30  
18 1     1   4 use parent qw( Net::API::Telegram::Generic );
  1         1  
  1         4  
19 1     1   145 our( $VERSION ) = '0.1';
20             };
21              
22 0     0 1   sub point { return( shift->_set_get_scalar( 'point', @_ ) ); }
23              
24 0     0 1   sub scale { return( shift->_set_get_number( 'scale', @_ ) ); }
25              
26 0     0 1   sub x_shift { return( shift->_set_get_number( 'x_shift', @_ ) ); }
27              
28 0     0 1   sub y_shift { return( shift->_set_get_number( 'y_shift', @_ ) ); }
29              
30             1;
31              
32             __END__
33              
34             =encoding utf-8
35              
36             =head1 NAME
37              
38             Net::API::Telegram::MaskPosition - The position on faces where a mask should be placed by default
39              
40             =head1 SYNOPSIS
41              
42             my $msg = Net::API::Telegram::MaskPosition->new( %data ) ||
43             die( Net::API::Telegram::MaskPosition->error, "\n" );
44              
45             =head1 DESCRIPTION
46              
47             L<Net::API::Telegram::MaskPosition> is a Telegram Message Object as defined here L<https://core.telegram.org/bots/api#maskposition>
48              
49             This module has been automatically generated from Telegram API documentation by the script scripts/telegram-doc2perl-methods.pl.
50              
51             =head1 METHODS
52              
53             =over 4
54              
55             =item B<new>( {INIT HASH REF}, %PARAMETERS )
56              
57             B<new>() will create a new object for the package, pass any argument it might receive
58             to the special standard routine B<init> that I<must> exist.
59             Then it returns what returns B<init>().
60              
61             The valid parameters are as follow. Methods available here are also parameters to the B<new> method.
62              
63             =over 8
64              
65             =item * I<verbose>
66              
67             =item * I<debug>
68              
69             =back
70              
71             =item B<point>( String )
72              
73             The part of the face relative to which the mask should be placed. One of I<forehead>, I<eyes>, I<mouth>, or I<chin>.
74              
75             =item B<scale>( Float number )
76              
77             Mask scaling coefficient. For example, 2.0 means double size.
78              
79             =item B<x_shift>( Float number )
80              
81             Shift by X-axis measured in widths of the mask scaled to the face size, from left to right. For example, choosing -1.0 will place mask just to the left of the default mask position.
82              
83             =item B<y_shift>( Float number )
84              
85             Shift by Y-axis measured in heights of the mask scaled to the face size, from top to bottom. For example, 1.0 will place the mask just below the default mask position.
86              
87             =back
88              
89             =head1 COPYRIGHT
90              
91             Copyright (c) 2000-2019 DEGUEST Pte. Ltd.
92              
93             =head1 AUTHOR
94              
95             Jacques Deguest E<lt>F<jack@deguest.jp>E<gt>
96              
97             =head1 SEE ALSO
98              
99             L<Net::API::Telegram>
100              
101             =head1 COPYRIGHT & LICENSE
102              
103             Copyright (c) 2018-2019 DEGUEST Pte. Ltd.
104              
105             You can use, copy, modify and redistribute this package and associated
106             files under the same terms as Perl itself.
107              
108             =cut
109