Acme-FSM

 view release on metacpan or  search on metacpan

Build.PL  view on Meta::CPAN

  meta_merge         =>
  { resources  =>
    { license => q|http://www.gnu.org/licenses/lgpl-3.0.txt| },
    no_index   =>               [ directory => q|build_e7BB| ] },
  sign               =>                                        1,
  requires           =>
  { q|perl|  => qv( v5.10.0 ),
    q|version| => qv( v0.77 ),
    q|Carp|    =>          ''                                  },
  build_requires     =>                  { q|Test::More| => '' },
  configure_requires =>      { q|Module::Build| => qv( v0.31 ) },
  pm_files           =>  { q|lib/FSM.pm| => q|lib/Acme/FSM.pm| },
  add_to_cleanup    => [qw| *.tmp *.bak foo.* skip_* MYMETA.* |] );

if( -e q|Changes.pod| )                             {
    $engine->add_build_element( q|buildq85v| );
    $engine->buildq85v_files(
      q|Changes.pod| => q|Changes|, q|Build.PL| => q|README| );
    $engine->add_to_cleanup( q|Changes|, q|README| ) }

META.json  view on Meta::CPAN

         "directory",
         "build_e7BB"
      ]
   },
   "prereqs" : {
      "build" : {
         "requires" : {
            "Test::More" : "0"
         }
      },
      "configure" : {
         "requires" : {
            "Module::Build" : "v0.31.0"
         }
      },
      "runtime" : {
         "requires" : {
            "Carp" : "0",
            "perl" : "v5.10.0",
            "version" : "v0.77.0"
         }

META.yml  view on Meta::CPAN

---
abstract: 'Pseudo Finite State Machine'
author:
  - 'Eric Pozharski <wayside.ultimate@tuta.io>'
build_requires:
  Test::More: '0'
configure_requires:
  Module::Build: v0.31.0
dynamic_config: 1
generated_by: 'Module::Build version 0.4234, CPAN::Meta::Converter version 2.150010'
license: open_source
meta-spec:
  url: http://module-build.sourceforge.net/META-spec-v1.4.html
  version: '1.4'
name: Acme-FSM
no_index:
  directory:

lib/FSM.pm  view on Meta::CPAN

sub query_source                              {
    my $self = shift @_;
# WORKAROUND:20121229001530:whynot: No B<verify()>, I<{source}> can return anything.
    my $item = $self->query( $self->{_}{source}, q|{source}|, @_ );
    return $item, $self->query_dumper( $item ) }

=item B<query_dumper()>

    $dump = $self->query_dumper( $item );

Seeks I<dumper> callback (L<configured at construction time|/dumper>).
If the callback wasn't configured uses simple hopefully informative and
C<undef> proof substitution.
Whatever the callback returns is checked to be B<defined>
(C<undef> is changed to C<"(unclear)">)
and then returned.

=cut

sub query_dumper                             {
    my $self = shift @_;
    return $self->verify(