File Coverage

blib/lib/CIAO/Lib/StackIO.pm

Criterion	Covered	Total	%
statement	26	26	100.0
branch	9	14	64.2
condition	7	8	87.5
subroutine	4	4	100.0
pod	1	1	100.0
total	47	53	88.6

package CIAO::Lib::StackIO;

use strict;
use warnings;
use Carp;


our $VERSION = '0.02';

require XSLoader;
XSLoader::load('CIAO::Lib::StackIO', $VERSION);

# Preloaded methods go here.

our %Options = ( prepend => 1, expand => 1 );

sub new
{
  my $class = shift;
  my $list = shift;
  my $opts = shift || { prepend => 1, expand => 0 };

  croak( __PACKAGE__, ": options must be hash ref\n" )
    unless 'HASH' eq ref $opts;

  croak( __PACKAGE__, ": extra arguments to constructor\n" )
    if @_;

  my @badopts = grep { ! exists $Options{lc $_ } } keys %$opts;
  croak( __PACKAGE__, ": unknown options: ", join(', ', @badopts ) )
    if @badopts;

  my %opts = map { lc $_ => $opts->{$_} } keys %$opts;

  my $stack;
  if ( exists $opts{expand} && $opts{expand} )
  {
    $stack =
      CIAO::Lib::StackIO::Private::stk_expand_n( $list, $opts{expand} )
	  or croak( __PACKAGE__, ": error generating expanded stack\n" );
  }
  else
  {
    $stack = ( exists $opts{prepend} && $opts{prepend} ) ?
      CIAO::Lib::StackIO::Private::stk_build( $list ) :
      CIAO::Lib::StackIO::Private::stk_build_gen( $list );

    croak( __PACKAGE__, ": error building stack\n" )
      unless $stack;
  }

  # force a stack rewind because of a bug in the stackio library when
  # creating empty stacks.
  $stack->rewind;

  $stack;
}


1;


__END__