~ubuntu-branches/ubuntu/trusty/libfennec-perl/trusty-proposed

« back to all changes in this revision

Viewing changes to lib/Test/Workflow/Block.pm

  • Committer: Package Import Robot
  • Author(s): Xavier Guimard
  • Date: 2013-06-21 06:29:36 UTC
  • mfrom: (1.1.4)
  • Revision ID: package-import@ubuntu.com-20130621062936-lr1472qi38e2nw7b
Tags: 2.009-1
* Imported Upstream version 2.009
* Update spelling errors patch
* Add version to libmock-quick-perl dependency

Show diffs side-by-side

added added

removed removed

Lines of Context:
23
23
    my ( $caller, $name, @args ) = @_;
24
24
    my $code;
25
25
 
26
 
    croak "You must provide a caller"
27
 
        unless $caller && @$caller;
 
26
    croak "You must provide a caller (got: $caller)"
 
27
        unless $caller && ref $caller && ref $caller eq 'ARRAY' && @$caller;
28
28
    croak "You must provide a name"
29
29
        unless $name and !ref $name;
30
30