CPAN::Groonga

iny;
        
    use constant DEFAULT_FORMAT => 'YAML';
        
    enum 'Format', [qw(YAML XML JSON)];
    
    has 'format' => (
        is => 'rw',
        isa => 'Format',
    );
    
    has 'p

     
        die "Regrettably, this is not a valid format option.  Choose one of ( [o] YAML, [x] JSON or [x] XML." if $@;
      
        return(0);
    }
    
    sub begin {
        my $self = shift

ints;
    
    use YAML::Tiny;

    use Data::Dumper;       
    
    enum 'Format', [qw(YAML XML JSON)];
    enum 'Process', [qw(sox play)];
    enum 'TTY', [qw(STDOUT STDERR)];
    enum 'Handle', ['