Handler/Cellphone/API.pm

package Data::Storage::Handler::Cellphone::API;

use strict;
use warnings;

use Data::Dumper;


sub transport_setup_safe {
  my $self = shift;
  if (!$self->{connected}) {
    $self->{connected}++;
    $self->{Cellphone}->transport_setup();
  }
}

sub send {
  my $self = shift;
  my $attribs = shift;
  my $inner = shift;
  
  if ($self->{connected}) {
    my $arg1 = $inner->[0]->{content};
    print "$arg1: ";
    print $self->{Cellphone}->send($arg1), "\n";
  } else {
    die("Cellphone not connected");
  }
}

1;
__END__
1	joko	1.1	package Data::Storage::Handler::Cellphone::API;
2
3			use strict;
4			use warnings;
5
6			use Data::Dumper;
7
8
9			sub transport_setup_safe {
10			my $self = shift;
11			if (!$self->{connected}) {
12			$self->{connected}++;
13			$self->{Cellphone}->transport_setup();
14			}
15			}
16
17			sub send {
18			my $self = shift;
19			my $attribs = shift;
20			my $inner = shift;
21
22			if ($self->{connected}) {
23			my $arg1 = $inner->[0]->{content};
24			print "$arg1: ";
25			print $self->{Cellphone}->send($arg1), "\n";
26			} else {
27			die("Cellphone not connected");
28			}
29			}
30
31			1;
32			__END__
MailToCvsAdmin">MailToCvsAdmin	ViewVC Help
Powered by ViewVC 1.1.26