Implemented warnings to SugarTrail::Template::Condition

Method match() now returns result *and* a reference to list of warnings

lib/SugarTrail/Template/Condition.pm

@@ -31,6 +31,7 @@ sub new {
         '=~' => \&_regex,
     };
     $self->{parsed} = 0;
+    $self->{warnings} = [];
     return bless $self, $class;
 }
 
@@ -66,33 +67,50 @@ sub parse {
 }
 
 # match the cond against params
-sub match {
+sub __match {
     my $self    = shift;
     my $params  = shift;
-    $self->parse();
 
     my $name    = $self->{n};       # what is the topic
     my $op      = $self->{o};       # what op to use
     my $have    = $self->{v};       # what we have in this step
     my $want    = $params->{$name}; # what they want
 
+    # warn if condition cannot be decided due to missing param
     unless ($want) {
-        warn sprintf (
-            "undecided condition: %s; did you forget to specify %s?\n",
+        $self->warn( sprintf (
+            "undecided condition: %s; did you forget to specify %s?",
             $self->{string},
             $name
-        );
+        ));
         return 1;
     }
 
-    # execute the right handler
+    # execute the right handler or warn it does not exist
     if (exists $self->{handlers}->{$op}) {
         return &{ $self->{handlers}->{$op} }($want, $have);
     } else {
-        helper::dmupp(bad_op=>$self);
-        warn "unknown operator: $op\n";
+        $self->warn("unknown operator: $op");
+        return 1;
     }
 }
 
+# wrapper to __match(); adds warning list
+sub match {
+    my $self    = shift;
+    my $params  = shift;
+    $self->parse();
+    $self->{result} = $self->__match($params);
+    return $self->{result}, $self->{warnings};
+}
+
+sub warn {
+    my $self = shift;
+    my $text = shift;
+    push @{$self->{warnings}}, {
+        time    => time,
+        text    => $text
+    };
+}
 
 1;