← Back to branch summary

~percona-toolkit-dev/percona-toolkit/pxc-pt-slave-find-tests

« back to all changes in this revision

Viewing changes to bin/pt-slave-restart

  • Committer: Brian Fraser
  • Date: 2012-11-07 07:12:37 UTC
  • mfrom: (440.1.2 percona-toolkit)
  • Revision ID: brian.fraser@percona.com-20121107071237-6ctmlqwpt36vciv9
Merged fix-1073532-Mo-Scalar-Util-PP

Show diffs side-by-side

added added

removed removed

Lines of Context:
bin/pt-slave-restart
1222
1222
use warnings qw( FATAL all );
1223
1223
 
1224
1224
use Carp ();
1225
 
use Scalar::Util ();
 
1225
use Scalar::Util qw(looks_like_number blessed);
 
1226
 
1226
1227
 
1227
1228
our %TYPES = (
1228
 
   Bool   => sub { !$_[0] || (defined $_[0] && &Scalar::Util::looks_like_number && $_[0] == 1) },
1229
 
   Num    => sub { defined $_[0] && &Scalar::Util::looks_like_number },
1230
 
   Int    => sub { defined $_[0] && &Scalar::Util::looks_like_number && $_[0] == int $_[0] },
 
1229
   Bool   => sub { !$_[0] || (defined $_[0] && looks_like_number($_[0]) && $_[0] == 1) },
 
1230
   Num    => sub { defined $_[0] && looks_like_number($_[0]) },
 
1231
   Int    => sub { defined $_[0] && looks_like_number($_[0]) && $_[0] == int($_[0]) },
1231
1232
   Str    => sub { defined $_[0] },
1232
 
   Object => sub { defined $_[0] && &Scalar::Util::blessed },
 
1233
   Object => sub { defined $_[0] && blessed($_[0]) },
1233
1234
   FileHandle => sub { local $@; require IO::Handle; fileno($_[0]) && $_[0]->opened },
1234
1235
 
1235
1236
   map {
1403
1404
                  $method = sub {
1404
1405
                     if ( $#_ ) {
1405
1406
                        Carp::confess(qq<Attribute ($attribute) doesn't consume a '$role' role">)
1406
 
                           unless blessed($_[1]) && $_[1]->does($role)
 
1407
                           unless Scalar::Util::blessed($_[1]) && eval { $_[1]->does($role) }
1407
1408
                     }
1408
1409
                     goto &$original_method
1409
1410
                  };