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

Add BotLib changes to all remain scripts in bin dir

Browse Source
This commit is contained in:
eleksir
2021-05-01 01:29:02 +03:00
parent dd693bf5fb
commit 36c79eb46c
3 changed files with 6 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
bin/flickr.pl
View File

@@ -20,9 +20,9 @@ BEGIN {
}
use lib ("$workdir/lib", "$workdir/vendor_perl", "$workdir/vendor_perl/lib/perl5");
use flickr qw (flickr_by_tags);
use BotLib::Image::Flickr qw (FlickrByTags);
my $url = flickr_by_tags ('bird,owl');
my $url = FlickrByTags ('bird,owl');
if ($url) {
say $url; ## no critic (InputOutput::RequireCheckedSyscalls)

6
bin/fortune_seed.pl
View File

@@ -20,9 +20,7 @@ BEGIN {
}
use lib ("$workdir/lib", "$workdir/vendor_perl", "$workdir/vendor_perl/lib/perl5");
use fortune qw (seed);
use Carp;
local $SIG{__DIE__} = sub { Carp::confess @_ };
use BotLib::Fortune qw (Seed);
seed ();
Seed ();
exit 0;

4
bin/train_lat.pl
View File

@@ -20,7 +20,7 @@ BEGIN {
}
use lib ("$workdir/lib", "$workdir/vendor_perl", "$workdir/vendor_perl/lib/perl5");
use lat qw (train);
use BotLib::Lat qw (Train);
train ();
Train ();
exit 0;