NAME

Data::Range::Compare::Cookbook::Recipe_subclass_a_to_z - subclassing "a to z"

SYNOPSIS

This recipe builds on the "a to z" recipe but adds a basic example of how to subclass Data::Range::Compare.

Creating the module

This section contains the example source code used to create a_to_z.pm

package a_to_z;
use strict;
use warnings;
use vars qw(@ISA @list %ids %helper);
@ISA=qw(Data::Range::Compare);
use Data::Range::Compare;

@list=('a' .. 'z');
my $id=-1;
%ids=map { ($_,++$id) } @list; 
undef $id;

$helper{add_one}=\&add_one;
sub add_one {
  my $here=$ids{$_[0]};
  ++$here;
  return 'z' if $#list<$here;
  $list[$here]
}

$helper{sub_one}=\&sub_one;
sub sub_one {
  my $here=$ids{$_[0]};
  --$here;
  return 'a' if $here<0;
  $list[$here]
}
sub cmp_values { $_[0] cmp $_[1] }
$helper{cmp_values}=\&cmp_values;

sub new{
  my ($class,$start,$end,$generated,$missing)=@_;
  $class->SUPER::new(\%helper,$start,$end,$generated,$missing);
}

sub range_compare { 
   my ($s,@args)=@_;
   $s->SUPER::range_compare(\%helper,@args) 
}

sub get_common_range {
  my ($class,@args)=@_;
  $class->SUPER::get_common_range(\%helper,@args);
}

1;

Using a_to_z.pm

Now you can create a perl script to load a_to_z and use the simplified functionality.

use a_to_z;

my $obj_a=a_to_z->new(qw(c f));
my $obj_b=a_to_z->new(qw(a z));
my $obj_c=a_to_z->new(qw(g j));

$list=[ [$obj_a] ,[$obj_b] ,[$obj_c] ];
$sub=a_to_z->range_compare($list);
while(my @row=$sub->()) { 
 my ($obj_a,$obj_b,$obj_c)=@row;
 my $common_range=a_to_z-->get_common_range(\@row);
 print "\n";
 print "Common Range: $common_range\n";
 my ($obj_a,$obj_b,$obj_c)=@row;
 my $range_a_state=$obj_a->missing ?
      'Not in set a'
      :
      'in set a';
      my $range_b_state=$obj_b->missing ?
      'Not in set b'
      :
      'in set b';
      my $range_c_state=$obj_c->missing ?
      'Not in set c'
      :
      'in set c';

      print "Range_a: $obj_a is $range_a_state\n";
      print "Range_b: $obj_b is $range_b_state\n";
      print "Range_c: $obj_c is $range_c_state\n";
}

Output:
Common Range: a - b
Range_a: a - b is Not in set a
Range_b: a - z is in set b
Range_c: a - f is Not in set c

Common Range: c - f
Range_a: c - f is in set a
Range_b: a - z is in set b
Range_c: a - f is Not in set c

Common Range: g - j
Range_a: g - z is Not in set a
Range_b: a - z is in set b
Range_c: g - j is in set c

Common Range: k - z
Range_a: g - z is Not in set a
Range_b: a - z is in set b
Range_c: k - z is Not in set c

DESCRIPTION

Simple example demonstrating HOWTO subclass the "a to z" example

AUTHOR

Michael Shipper

COPYRIGHT

Copyright 2010 Michael Shipper. All rights reserved.

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

SEE ALSO

Data::Range::Compare::Cookbook perlboot