Gecko [ porsche-kaitori.click ]

Name	Size	Permission
ActiveHome.pm	8.8 KB	-rw-r--r--
Controller.pm	6.84 KB	-rw-r--r--
Device.pm	1.04 KB	-rw-r--r--
Event.pm	2.89 KB	-rw-r--r--
EventList.pm	1.06 KB	-rw-r--r--
FireCracker.pm	4.16 KB	-rw-r--r--
Macro.pm	1 KB	-rw-r--r--
MacroProc.pm	2.25 KB	-rw-r--r--
Network.pm	2.11 KB	-rw-r--r--
SchedEvent.pm	3.62 KB	-rw-r--r--
Scheduler.pm	2.1 KB	-rw-r--r--
Server.pm	3.75 KB	-rw-r--r--
TwoWay.pm	2.96 KB	-rw-r--r--

Code Editor : EventList.pm

package X10::EventList;

use vars qw(@ISA);

use Storable;

@ISA = qw(Storable);

use strict;

sub new
{
   my $type = shift;

my $self = bless { list => [] }, $type;

foreach (@_)
   {
      if (ref $_ eq 'X10::Event')
      {
         push @{$self->{list}}, $_;
      }
      elsif (ref $_ eq 'X10::EventList')
      {
         push @{$self->{list}}, $_->list;
      }
      elsif (ref $_ eq '')
      {
         push @{$self->{list}}, new X10::Event($_);
      }
      else
      {
         warn "Can't deal with a ", ref $_;
      }
   }

@{$self->{list}} = grep { $_ } @{$self->{list}};

return undef unless @{$self->{list}};

return $self;
}

sub as_string
{
   my $self = shift;

join(', ', map { $_->as_string } @{$self->{list}});
}

sub list
{
   my $self = shift;
   @{$self->{list}};
}

###

# build a string of words that implement this event
sub compile
{
   my $self = shift;

map { $_->compile } @{$self->{list}};
}

###

${this.title}

Code Editor : EventList.pm