13 my ($self, $data) = @_;
14 my $class = ref($self) || $self;
15 return bless(\$data, $class);
18 sub _op_num_eq { shift->_binop('==', @_) };
19 sub _op_num_gt { shift->_binop('>', @_) };
22 my ($self, $op, $rhs) = @_;
26 (ref $rhs ? ${$rhs} : [ -value, $rhs ]),
33 our $AUTOLOAD =~ s/.*:://;
34 return I::E->new([ -name, $AUTOLOAD ]);
46 use Data::Dump qw(dump);
47 use Scalar::Util qw(blessed);
51 blessed($un) && $un->isa('E')
54 ? [ map { _une($_) } @$un ]
59 local $_ = bless(\do { my $x }, 'I');
60 map { _une($_) } $_[0]->();
63 sub expr (&) { _run_e(@_) }
65 my ($name, $code, @in) = @_;
66 [ $name, _run_e($code), @in ];
69 my ($name, $code, @in) = @_;
70 _do($name, sub { [ -list, map { _une($_) } $code->() ] }, @in);
72 sub ORDER_BY (&;@) { _do(-order_by, @_) }
73 sub SELECT (&;@) { _dolist('-select', @_); }
74 sub JOIN (&;@) { _do('-join', @_) }
75 sub WHERE (&;@) { _do(-where, @_) }
76 sub GROUP_BY (&;@) { _dolist(-group_by, @_); }
77 sub sum { E->new([ -sum, _une(shift) ]); }
79 #warn dump(expr { $_->one == $_->two });
81 ORDER_BY { $_->aggregates->total }
82 SELECT { $_->users->name, $_->aggregates->total }
83 JOIN { $_->users->id == $_->aggregates->recipient_id }
84 [ users => expr { $_->users } ],
87 SELECT { $_->recipient_id, [ total => sum($_->commission) ] }
88 WHERE { sum($_->commission) > 500 }
89 GROUP_BY { $_->recipient_id }
90 WHERE { $_->entry_date > '2007-01-01' }
91 expr { $_->commissions }
97 ORDER_BY { $_->aggregates->total }
98 SELECT { $_->users->name, $_->aggregates->total }
99 JOIN { $_->users->id == $_->aggregates->recipient_id }
100 [ users => expr { $_->users } ],
103 SELECT { $_->recipient_id, [ total => sum($_->commission) ] }
104 WHERE { sum($_->commission) > 500 }
105 GROUP_BY { $_->recipient_id }
106 WHERE { $_->entry_date > '2007-01-01' }
107 expr { $_->commissions }
113 ORDER_BY { $_->aggregates->total }
114 SELECT { $_->users->name, $_->aggregates->total }
115 WHERE { $_->aggregates->total > 500 }
116 JOIN { $_->users->id == $_->aggregates->recipient_id }
117 [ users => expr { $_->users } ],
120 SELECT { $_->recipient_id, [ total => sum($_->commission) ] }
121 GROUP_BY { $_->recipient_id }
122 WHERE { $_->entry_date > '2007-01-01' }
123 expr { $_->commissions }