Most recent changes on top.

Sun Jul 1 18:42:12 EDT 2007

Mon Jun 6 02:12:02 EDT 2005

Sun Jun 5 22:29:59 EDT 2005

Tue Sep 28 14:20:05 EDT 2004

Sat Sep 25 02:44:18 EDT 2004

Sat Sep 25 01:28:29 EDT 2004

package MyArray;

use NEXT::init [ qw( a b c ) ];

package Queue;

use base qw( MyArray );

use NEXT::init qw( :type=queue d e f );

package Stack;

use base qw( MyArray );

use NEXT::init qw( :type=stack d e f );

Running the code:

my $obj8 = Queue->construct( qw( queue ) );

my $obj9 = Stack->construct( qw( stack ) );

Yields

Queue vs. Stack:

        bless( [
          'queue',
          'd',
          'e',
          'f',
          'a',
          'b',
          'c'
        ], 'Queue' )

        bless( [
          'a',
          'b',
          'c',
          'd',
          'e',
          'f',
          'stack'
        ], 'Stack' )

Tue Sep 7 18:57:45 EDT 2004

Fri Aug 13 15:10:08 EDT 2004