use ARS;
use strict;
use warnings;
use Data::Dumper;

my $ctrl = ars_Login( shift, shift, shift )
  || die "login: $ars_errstr";

my $schema = "MB:Test";

my @fields = ( 'Conventional Enum', 'Enum With Gaps' );

foreach (@fields) {
    print "Fetching values for $_\n";
    ( my $fid = ars_GetFieldByName( $ctrl, $schema, $_ ) ) || die $ars_errstr;
    ( my $field = ars_GetField( $ctrl, $schema, $fid ) ) || die $ars_errstr;
    print Dumper ( @{ $field->{limit}{enumLimits}{regularList} } );
    my @enumvals = @{ $field->{limit}{enumLimits}{regularList} };
    print "Status values $_: " . join( ',', @enumvals ) . "\n";
}