File: Op.pm

package info (click to toggle)
icheck 0.9.7-9
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 2,352 kB
  • sloc: perl: 12,152; makefile: 202; ansic: 100
file content (33 lines) | stat: -rw-r--r-- 496 bytes parent folder | download | duplicates (6) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
 
package CParse::Op;

use 5.6.0;
use strict;
use warnings;

sub new
  {
    my $this = shift;

    my $list = shift;
    my $class = shift;

    eval "use $class;";
    while (scalar @$list > 1)
      {
        my $left = shift @$list;
        my $op = shift @$list;
        my $right = shift @$list;

        unless (defined $right)
          {
            die;
          }

        my $new = $class->new($left, $right, $op);
        unshift @$list, $new;
      }

    return $list->[0];
  }

1;