Select Code to Download

# DBIx::Array
sub single_row_list {
...
      $simple->select( film => [qw(title description)], \%where ) )->l
+ist;

}

# current API
 my $count =$dbx->delete( "DELETE from table WHERE id > 22" );

# ideal API
 my $count =$dbx->count( "DELETE from table WHERE id > 22" );

$object->sql$RESULT$STRUCT

# FIELD FROM DB to PERL SCALAR
my $scalar = $da->field_scalar; 
...

# ROWS FROM DB to PERL ARRAY OF HASHREFS
my @rows = $da->rows_arraysofhash;

use strict;
use warnings;
...

1;