eleksir/aleesa-telegram-bot
1
Fork 0
Code Activity

Perlcritic and similar fixes, no functional changes

Browse Source
This commit is contained in:
eleksir
2021-03-27 10:35:04 +03:00
parent 36208a35d5
commit c6ce5b1421
4 changed files with 9 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
lib/buni.pm
View File

@@ -37,7 +37,7 @@ sub buni {
{ {
do { do {
$#a = -1; $#a = -1;
@a = $p->get_tag("meta"); @a = $p->get_tag('meta'); ## no critic (Variables::RequireLocalizedPunctuationVars)
if (defined $a[0][1]->{property} && $a[0][1]->{property} eq 'og:image') { if (defined $a[0][1]->{property} && $a[0][1]->{property} eq 'og:image') {
$ret = sprintf '[buni](%s)', $a[0][1]->{content}; $ret = sprintf '[buni](%s)', $a[0][1]->{content};

2
lib/drink.pm
View File

@@ -41,7 +41,7 @@ sub drink {
do { do {
$#a = -1; $#a = -1;
@a = $p->get_tag("span"); @a = $p->get_tag('span'); ## no critic (Variables::RequireLocalizedPunctuationVars)
if ($#{$a[0]} > 2 && defined $a[0][1]->{itemprop} && $a[0][1]->{itemprop} eq 'text') { if ($#{$a[0]} > 2 && defined $a[0][1]->{itemprop} && $a[0][1]->{itemprop} eq 'text') {
push @holyday,'* ' . decode ('UTF-8', $p->get_trimmed_text ('/span')); push @holyday,'* ' . decode ('UTF-8', $p->get_trimmed_text ('/span'));

6
lib/monkeyuser.pm
View File

@@ -37,11 +37,11 @@ sub monkeyuser {
do { do {
$#a = -1; $#a = -1;
@a = $p->get_tag("a"); @a = $p->get_tag('a'); ## no critic (Variables::RequireLocalizedPunctuationVars)
if (defined $a[0][1]->{class} && $a[0][1]->{class} eq 'lazyload small-image') { if (defined $a[0][1]->{class} && $a[0][1]->{class} eq 'lazyload small-image') {
if (defined $a[0][1]->{"data-src"} && ($a[0][1]->{"data-src"} !~ /adlitteram/)) { if (defined $a[0][1]->{'data-src'} && ($a[0][1]->{'data-src'} !~ /adlitteram/)) {
push @link, $a[0][1]->{"data-src"}; push @link, $a[0][1]->{'data-src'};
} }
} }

6
lib/weather.pm
View File

@@ -34,7 +34,8 @@ sub weather {
if ($w) { if ($w) {
if ($w->{temperature_min} == $w->{temperature_max}) { if ($w->{temperature_min} == $w->{temperature_max}) {
$reply = sprintf ("Погода в городе %s, %s:\n%s, ветер %s %s м/c, температура %s°C, ощущается как %s°C, относительная влажность %s%%, давление %s мм.рт.с", $reply = sprintf (
"Погода в городе %s, %s:\n%s, ветер %s %s м/c, температура %s°C, ощущается как %s°C, относительная влажность %s%%, давление %s мм.рт.с",
$w->{name}, $w->{name},
$w->{country}, $w->{country},
ucfirst $w->{description}, ucfirst $w->{description},
@@ -46,7 +47,8 @@ sub weather {
$w->{pressure} $w->{pressure}
); );
} else { } else {
$reply = sprintf ("Погода в городе %s, %s:\n%s, ветер %s %s м/c, температура %s-%s°C, ощущается как %s°C, относительная влажность %s%%, давление %s мм.рт.ст", $reply = sprintf (
"Погода в городе %s, %s:\n%s, ветер %s %s м/c, температура %s-%s°C, ощущается как %s°C, относительная влажность %s%%, давление %s мм.рт.ст",
$w->{name}, $w->{name},
$w->{country}, $w->{country},
ucfirst $w->{description}, ucfirst $w->{description},