Class and IDs

• $rs = DBIx::SQLEngine::RecordSet::Set->new_class_ids( $class, @ids );
• $rs->init_class_ids( $class, @ids );
• ( $class, @ids ) = $rs->class_ids();

Conversions

Each of the below returns a RecordSet blessed into a particular subclass. Returns the original object if it is already of that subclass, or returns a cloned and converted copy.

• @data = $rs->raw();

  Returns the contents of the RecordSet as stored internally within the object. Results are dependent on which subclass is in use.

• $rs = $rs->as_RecordArray;

  INCOMPLETE

• $clone = $rs->as_IDArray;

  INCOMPLETE

• $clone = $rs->as_IDString;

  INCOMPLETE

# $rs = DBIx::SQLEngine::RecordSet::Set->new_class_ids( $class, @ids ); sub new_ids {
my $callee = shift;
my $package = ref $callee || $callee;

  my $self = [];
  bless $self, $package;
  $self->init_class_ids( @_ );
  return $self;
}

# $rs->init_ids( $class, @ids ); sub init_ids {
my $self = shift;
my $class = shift;

  @$self = map { $class->fetch_id( $_ ) } @_;
}

# @records = $rs->class_ids(); sub class_ids {
my $self = shift;
my $class = ref( $self->[0] );
return $class, map { $_->{id} } @$self; }

###

sub raw {
my $self = shift;
if ( scalar @_ ) {
@$self = @_;
} else {
@$self;
} } # # sub as_RecordArray { # my $self = shift; # } # # sub as_IDArray { # my $self = shift; # EBiz::Database::RecordSet::IDArray->new( $self->records ); # } # # sub as_IDString { # my $self = shift; # EBiz::Database::RecordSet::IDString->new( $self->records ); # }

########################################################################

########################################################################