Initial Commit

database/perl/lib/Test/Deep/Stack.pm

@@ -0,0 +1,85 @@
+use strict;
+use warnings;
+
+package Test::Deep::Stack;
+
+use Carp qw( confess );
+use Scalar::Util;
+
+use Test::Deep::MM qw( new init Stack Arrow );
+
+sub init
+{
+  my $self = shift;
+
+  $self->SUPER::init(@_);
+
+  $self->setStack([]) unless $self->getStack;
+}
+
+sub push
+{
+  my $self = shift;
+
+  push(@{$self->getStack}, @_);
+}
+
+sub pop
+{
+  my $self = shift;
+
+  return pop @{$self->getStack};
+}
+
+sub render
+{
+  my $self = shift;
+  my $var = shift;
+
+  my $stack = $self->getStack;
+
+  $self->setArrow(0);
+
+  foreach my $data (@$stack)
+  {
+    my $exp = $data->{exp};
+    if (Scalar::Util::blessed($exp) and $exp->isa("Test::Deep::Cmp"))
+    {
+      $var = $exp->render_stack($var, $data);
+
+      $self->setArrow(0) if $exp->reset_arrow;
+    }
+    else
+    {
+      confess "Don't know how to render '$exp'";
+    }
+  }
+
+  return $var;
+}
+
+sub getLast
+{
+  my $self = shift;
+
+  return $self->getStack->[-1];
+}
+
+sub incArrow
+{
+  my $self = shift;
+
+  my $a = $self->getArrow;
+  $self->setArrow($a + 1);
+
+  return $a;
+}
+
+sub length
+{
+  my $self = shift;
+
+  return @{$self->getStack} + 0;
+}
+
+1;