File Coverage

blib/lib/Data/Iterator/EasyObj.pm

Criterion	Covered	Total	%
statement	59	68	86.7
branch	12	20	60.0
condition	3	9	33.3
subroutine	12	13	92.3
pod	3	7	42.8
total	89	117	76.0

package Data::Iterator::EasyObj;

use strict;
use vars qw/$AUTOLOAD $VERSION/;
$VERSION = 0.01;
use Data::Dumper;

sub new {
  my ($class,$data,$fields,%args) = @_;
  my $fieldshash;
#  warn "fields : \n", Dumper($fields), "\n";
  if (lc(ref $fields) eq "hash") {
    foreach my $key (keys %$fields) {
      if (ref($fields->{$key})) {
	$fieldshash->{$key} = $fields->{$key};
	warn "using id\n";
      } else {
	$fieldshash->{$key} = { id => $fields->{$key} };
	warn "creating id\n";
      }
    }
  } elsif (lc(ref $fields) eq "array") {
    my $i = 0;
    foreach my $field (@$fields) {
      $fieldshash->{$field} = { id => $i++} ;
    }
  } else {
    die "fields must be an arrayref or hashref\n";
  }
#  warn "fieldshash : \n", Dumper($fieldshash), "\n";
  my $self = [ $data, $fieldshash, -1, scalar @{$data}, {}, 0];
  bless ($self,ref($class) || $class);
  $args{limit} ||= $self->[3];
  $self->offset($args{offset}) if ($args{offset});
  $self->limit($args{limit}) if ($args{limit});
  return $self;
}

sub next {
#  warn "getting next record\n";
  my $self = shift;
  $self->[2]+= $self->[5] if ($self->[2] < 0 );
  $self->[2]++;
  my $return = 1;
  if ($self->[2] >= $self->[3]) {
    $return = 0;
    $self->[2] = -1;
  } elsif ($self->[2] >= $self->[6]) {
    $return = 0;
    $self->[2] = -1;
  }
  $self->[4] = $self->[0][$self->[2]];
#  warn "current record ::\n", Dumper(@{$self->[4]});
  return $return;
}

sub offset {
  my ($self,$offset) = @_;
  $self->[5] = $offset;
  $self->[2] = $offset if ($self->[2] >= 0 && $self->[2] < $offset);
  my $return = 1;
  return $return;
}

sub limit {
  my ($self,$limit) = @_;
  my $return = 1;
  $self->[6] = $limit + $self->[5];
  return $return;
}


sub count {
  my $self = shift;
  return $self->[3];
}

sub add_column {
  my ($self, $name) = @_;
  my $fieldcount = keys %{$self->[1]};
#  warn "adding column : fieldcount is $fieldcount\n";
  $self->[1]{$name}{id}=$fieldcount;
}

sub add_value {
  my ($self, $field,$value) = @_;
#  warn"adding value : $field / $value";
  $self->[4][$self->[1]{$field}{id}] = $value;
}

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

sub AUTOLOAD {
  no strict "refs";
  my ($self) = @_;
  $AUTOLOAD =~ /.*::(\w+)/;
  my $field = $1;
#  warn "(autoload) getting $field \n";
  exists $self->[1]{$field} or die "no such field : $field \n";
  *{$AUTOLOAD} = sub {
#    warn "(magic) getting $field -- counter : $self->[2] -- field : ", Dumper(%{$self->[1]{$field}})," -- value : $self->[4][$self->[1]{$field}{id}]\n";
    return $self->[4][$self->[1]{$field}{id}]
  };
  return $self->[4][$self->[1]{$field}{id}];
}

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

1;

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

__END__