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]->();
64 map { ref($_) eq 'ARRAY' ? [ -alias, $_->[1], $_->[0] ] : $_ } @_
67 sub expr (&) { _run_e(@_) }
69 my ($name, $code, @in) = @_;
70 [ $name, _run_e($code), @in ];
73 my ($name, $code, @in) = @_;
81 sub ORDER_BY (&;@) { _do(-order_by, @_) }
82 sub SELECT (&;@) { _dolist('-select', @_); }
83 sub JOIN (&;@) { _do('-join', _aliasify @_) }
84 sub WHERE (&;@) { _do(-where, @_) }
85 sub GROUP_BY (&;@) { _dolist(-group_by, @_); }
86 sub sum { E->new([ -sum, _une(shift) ]); }
88 #warn dump(expr { $_->one == $_->two });
90 ORDER_BY { $_->aggregates->total }
91 SELECT { $_->users->name, $_->aggregates->total }
92 JOIN { $_->users->id == $_->aggregates->recipient_id }
93 [ users => expr { $_->users } ],
96 SELECT { $_->recipient_id, [ total => sum($_->commission) ] }
97 WHERE { sum($_->commission) > 500 }
98 GROUP_BY { $_->recipient_id }
99 WHERE { $_->entry_date > '2007-01-01' }
100 expr { $_->commissions }
106 ORDER_BY { $_->aggregates->total }
107 SELECT { $_->users->name, $_->aggregates->total }
108 JOIN { $_->users->id == $_->aggregates->recipient_id }
109 [ users => expr { $_->users } ],
112 SELECT { $_->recipient_id, [ total => sum($_->commission) ] }
113 WHERE { sum($_->commission) > 500 }
114 GROUP_BY { $_->recipient_id }
115 WHERE { $_->entry_date > '2007-01-01' }
116 expr { $_->commissions }
122 ORDER_BY { $_->aggregates->total }
123 SELECT { $_->users->name, $_->aggregates->total }
124 WHERE { $_->aggregates->total > 500 }
125 JOIN { $_->users->id == $_->aggregates->recipient_id }
126 [ users => expr { $_->users } ],
129 SELECT { $_->recipient_id, [ total => sum($_->commission) ] }
130 GROUP_BY { $_->recipient_id }
131 WHERE { $_->entry_date > '2007-01-01' }
132 expr { $_->commissions }