F/Ast/Action.pm did not return a true value at tmp.pl line 4.
BEGIN failed--compilation aborted at tmp.pl line 4.

##</code><code>##

package F::Ast::Action;

use Switch;
use strict;
use warnings;

=over 4
=item constants

=back

=cut

sub new
{
    return bless [], shift;
}

sub doCmd
{
    my $self = shift ;
    my $cmd  = shift ;

    switch ($cmd)
    {
        case 'get_permission'     {}
    }

}

1;