=pod

Data::Simplelist;
Data file for SimpleList.

Copyright wakaba 2001, GNU GPL2.
Change:

2001-06-05  wakaba
	- New File.

=cut

package Data::SimpleList;
$VERSION = '1.00';

sub open {
  my $class = shift;
  my $file = shift;
  my $name = shift || 'default';
  $name =~ tr/\x1f\x0d\x0a//d;
  bless {file => $file, name => $name, list => {}}, $class;
}

sub check {
  my $self = shift;
  my $id = _id($self,shift);
  unless ($self->{list}->{$id}) {
    if (open L, $self->{file}) {
      while (<L>) {
        if (/^$name\x1f(.*)[\x0d\x0a]*$/) {
          @{$self->{list}->{$id}} = split /\x1f/, $1; last;
        }
      }
    close L}
  }
  for (@{$self->{list}->{$id}}) {
    
  }
}

sub add {
  my $self = shift;
  my $id = _id($self,shift);
  
  $self;
}

sub _id {
  my $self = shift;
  my $id = shift;  $id =~ tr/\x1f\x0d\x0a//d if $id;
  $id || $self->{name};
}

1;