Added SugarTrail::CondBlock

lib/SugarTrail/CondBlock.pm

@@ -0,0 +1,47 @@
+package SugarTrail::CondBlock;
+# condition block
+# init()
+# parse(string)
+# matches(data)
+
+use strict;
+use warnings;
+
+use Data::Dumper;
+
+sub init {
+    my $class = shift;
+    my $self = {};
+    return bless $self, $class;
+}
+
+sub parse {
+    my $self    = shift;
+    my $string  = shift;
+
+    my @parts = split ";", $string;
+
+    foreach (@parts) {
+        s/^\s+//;
+        s/\s+$//;
+        my ($n, $o, $v) = m/([a-zA-Z0-9_ ]+)([<>=~+\-*@]*)(.*)/;
+        next unless $n;
+
+        $n =~ s/\s+$//;
+        $o =~ s/\s+$//;
+        $o =~ s/^\s+//;
+        $v =~ s/\s+$//;
+
+        my @v = split m/\s*,\s*/, $v;
+        push @{$self->{conds}}, { n => $n, o => $o, v => \@v };
+    }
+}
+
+
+
+sub match {
+    my $self = shift;
+    my $args = shift;
+}
+
+1;

t/Cond.t

@@ -0,0 +1,16 @@
+use Test::More;
+
+use lib 'lib';
+use helper;
+
+BEGIN { use_ok( 'SugarTrail::CondBlock' ); }
+require_ok( 'SugarTrail::CondBlock' );
+
+my $cb = SugarTrail::CondBlock->init();
+ok($cb, "cb is true");
+
+$cb->parse('os=@w7a,wxx;proto==imap;ver>=2012;');
+&helper::dmupp(cb=>$cb);
+
+
+done_testing();