Term::Twiddle demonstration

tt1.pl

#!/usr/bin/env perl
use 5.024;
use warnings;
use experimental qw< postderef signatures >;
no warnings qw< experimental::postderef experimental::signatures >;

use Time::HiRes 'sleep';
use FindBin '$Bin';
use lib "$Bin/local/lib/perl5", "$Bin/lib";
$|++;

use Term::Twiddle;
my $spinner = Term::Twiddle->new;

print 'wait for it... ';
$spinner->start;
system('sleep 5');
$spinner->stop;

say '';

tt2.pl

#!/usr/bin/env perl
use 5.024;
use warnings;
use experimental qw< postderef signatures >;
no warnings qw< experimental::postderef experimental::signatures >;

use Time::HiRes 'sleep';
use FindBin '$Bin';
use lib "$Bin/local/lib/perl5", "$Bin/lib";
$|++;

use Term::Twiddle;
my $spinner = Term::Twiddle->new;
$spinner->thingy([
   '|            |',
   '|~           |',
   '|~~          |',
   '|~~~         |',
   '|~~~~        |',
   '|~~~~~       |',
   '|~~~~~~      |',
   '|~~~~~~~     |',
   '|~~~~~~~~    |',
   '|~~~~~~~~~   |',
   '|~~~~~~~~~~  |',
   '|~~~~~~~~~~~ |',
   '|~~~~~~~~~~~~|',
   '| ~~~~~~~~~~~|',
   '|  ~~~~~~~~~~|',
   '|   ~~~~~~~~~|',
   '|    ~~~~~~~~|',
   '|     ~~~~~~~|',
   '|      ~~~~~~|',
   '|       ~~~~~|',
   '|        ~~~~|',
   '|         ~~~|',
   '|          ~~|',
   '|           ~|',
]);

print 'wait for it... ';
$spinner->start;
system('sleep 7');
$spinner->stop;

say '';