=== B::Deparse of the Code: 
{
    package Table;
    use warnings;
    use strict;
    use feature 'say';
    WHERE(ANDS(user() == $user, ORS(ANDS(workhrs() > $workhrs0, geo() == 20), ORS($workhrs1 < workhrs(), geo() == $geo1))));
} at d:/Users/lanx/vm_share/perl/Talks/DSL/2018_GPW/exp/SQL_abstract.pl line 51.


=== Tidy of deparsed Perl-code: 
{

    package Table;
    use warnings;
    use strict;
    use feature 'say';
    WHERE(
        ANDS(
            user() == $user,
            ORS(
                ANDS( workhrs() > $workhrs0, geo() == 20 ),
                ORS( $workhrs1 < workhrs(), geo() == $geo1 )
            )
        )
    );
}


=== Abstract Syntax Tree (simplified): 
  :'WHERE' is ::Clause
    :'ANDS' is ::Joiner
      :'=' is ::Infix
        :'user' is ::Column
        :'NWIGER' is ::Placeholder
["\n        ", "NWIGER"]
      :'ORS' is ::Joiner
        :'ANDS' is ::Joiner
          :'>' is ::Infix
            :'workhrs' is ::Column
            :'20' is ::Placeholder
["\n            ", 20]
          :'=' is ::Infix
            :'geo' is ::Column
            :'20' is SCALAR
        :'ORS' is ::Joiner
          :'<' is ::Infix
            :'50' is ::Placeholder
["\n            ", 50]
            :'workhrs' is ::Column
          :'=' is ::Infix
            :'geo' is ::Column
            :'EURO' is ::Placeholder
["\n            ", "EURO"]


=== Produced SQL: 

   WHERE 
    ( 
       user = ? AND 
      ( 
        ( 
           workhrs > ? AND 
           geo = 20 
        ) OR 
        ( 
           ? < workhrs OR 
           geo = ? 
        ) 
      ) 
    )  at d:/Users/lanx/vm_share/perl/Talks/DSL/2018_GPW/exp/SQL_abstract.pl line 59.