First touch to satisfy perlcritic
This commit is contained in:
@@ -1,12 +1,12 @@
|
||||
package Teapot::Bot::Object::Chat;
|
||||
$Teapot::Bot::Object::Chat::VERSION = '0.021';
|
||||
# ABSTRACT: The base class for Telegram 'Chat' type objects
|
||||
|
||||
|
||||
use Mojo::Base 'Teapot::Bot::Object::Base';
|
||||
use Teapot::Bot::Object::ChatPhoto;
|
||||
use Teapot::Bot::Object::Message;
|
||||
|
||||
$Teapot::Bot::Object::Chat::VERSION = '0.021';
|
||||
|
||||
has 'id';
|
||||
has 'type';
|
||||
has 'title';
|
||||
@@ -34,12 +34,12 @@ sub fields {
|
||||
|
||||
|
||||
sub is_user {
|
||||
shift->id > 0;
|
||||
return shift->id > 0;
|
||||
}
|
||||
|
||||
|
||||
sub is_group {
|
||||
shift->id < 0;
|
||||
return shift->id < 0;
|
||||
}
|
||||
|
||||
1;
|
||||
|
||||
Reference in New Issue
Block a user