NAME

DBIx::SQLEngine::RecordSet::PKeySet - A RecordSet which holds primary keys

SYNOPSIS

  use DBIx::SQLEngine::RecordSet;
  
  $rs = DBIx::SQLEngine::RecordSet->class( 'PKeySet' )->new(@records);

DESCRIPTION

Provides additional methods for a RecordSet to store primary keys instead of references to records.

This package is INCOMPLETE!

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 ); # }

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

NAME

SYNOPSIS

DESCRIPTION

Class and IDs

Conversions

SEE ALSO