NAME

       Net::Sieve::Script::Condition - parse and write conditions in sieve scripts

SYNOPSIS

         use Net::Sieve::Script::Condition;

         my $cond = Net::Sieve::Script::Condition->new('header');
           $cond->match_type(':contains');
           $cond->key_list('"[Test4]"');
           $cond->header_list('"Subject"');

          print $cond->write();

       or

          my $cond = Net::Sieve::Script::Condition->new(
            'anyof (
              header :contains "Subject" "[Test]",
                  header :contains "Subject" "[Test2]")'
                );

          print $cond->write();

DESCRIPTION

       Parse and write condition part of Sieve rules, see Net::Sieve::Script.

       Support RFC 5228, 5231 (relationnal) and regex draft

CONSTRUCTOR

   new
       Match and set accessors for each condition object in conditions tree, "test" is mandatory

       Internal

         id :        id for condition, set by creation order
         condition : array of sub conditions
         parent :    parent of sub condition
         AllConds :  array of pointers for all conditions

       Condition parts
         not          : 'not' or nothing
         test         : 'header', 'address', 'exists', ...
         key_list     : "subject" or ["To", "Cc"]
         header_list  : "text" or ["text1", "text2"]
         address_part : ':all ', ':localpart ', ...
         match_type   : ':is ', ':contains ', ...
         comparator   : string part

METHODS

   equals
        Purpose  : test conditions
        Return   : 1 on equals conditions

   write
        Purpose  : write rule conditions in text format
        Return   : multi-line formatted text

AUTHOR

           Yves Agostini
           CPAN ID: YVESAGO
           yvesago@cpan.org

COPYRIGHT

       This program is free software; you can redistribute it and/or modify it under the same
       terms as Perl itself.

       The full text of the license can be found in the LICENSE file included with this module.