aleesa-bot/aleesa-telegram
0
Fork 0
Code Pull Requests Projects Releases 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 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) { if ($url) {
say $url; ## no critic (InputOutput::RequireCheckedSyscalls) 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 lib ("$workdir/lib", "$workdir/vendor_perl", "$workdir/vendor_perl/lib/perl5");
use fortune qw (seed); use BotLib::Fortune qw (Seed);
use Carp;
local $SIG{__DIE__} = sub { Carp::confess @_ };
seed (); Seed ();
exit 0; 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 lib ("$workdir/lib", "$workdir/vendor_perl", "$workdir/vendor_perl/lib/perl5");
use lat qw (train); use BotLib::Lat qw (Train);
train (); Train ();
exit 0; exit 0;