package F::Ast::Action; use strict; use warnings; use feature 'switch'; =over 4 =item constants =back =cut sub new { return bless [], shift; } sub doCmd { my $self = shift; my $cmd = shift; given ($cmd) { when ('get_permission') {} } } 1;