| line |
true |
false |
branch |
|
139
|
0 |
0 |
exists $arg{'host'} ? : |
|
|
0 |
0 |
exists $arg{'port'} ? : |
|
|
0 |
0 |
exists $arg{'timeout'} ? : |
|
144
|
0 |
0 |
unless my $s = 'IO::Socket::INET'->new(%parms) |
|
146
|
0 |
0 |
unless defined $s |
|
157
|
0 |
0 |
if $$me{'buffer'} =~ /\x09(?:..)?\x03$/ |
|
168
|
0 |
0 |
if $trace |
|
169
|
0 |
0 |
unless $$me{'tunnel'}->syswrite($data) |
|
177
|
0 |
0 |
unless defined $tunnel |
|
187
|
0 |
0 |
if $trace |
|
195
|
0 |
0 |
unless defined {alive => '40', alive_resp => '90', cancel => '06', cancel_resp => '56', deliver_message => '20', deliver_message_resp => '70', deliver_status_report => '23', deliver_status_report_resp => '73', delivery_request => '05', delivery_request_resp => '55', enquire_message_status => '04', enquire_message_status_resp => '54', general_error_resp => '98', get_parameters => '09', get_parameters_resp => '59', login => '01', login_resp => '51', logout => '02', logout_resp => '52', nack => '99', set_parameters => '08', set_parameters_resp => '58', submit => '03', submit_resp => '53', submit_status_report => '13', submit_status_report_resp => '63'}->{$operation} |
|
204
|
0 |
0 |
defined $args{'seq'} ? : |
|
208
|
0 |
0 |
if defined {IP_address => '071', SMS_center_time => '501', alphanumeric_ariginating_address => '027', cancel_enabled => '058', cancel_mode => '059', data_coding_scheme => '030', delivery_request_mode => '068', destination_address => '021', discharge_time => '063', error_code => '900', error_text => '901', first_delivery_time_absolute => '054', first_delivery_time_relative => '053', get_parameter => '500', message_count => '066', more_messages_to_send => '044', originated_visited_MSC_address => '028', originating_IMSI => '026', originating_address => '023', password => '011', priority => '067', protocol_identifier => '052', reply_path => '055', service_center_address => '069', service_centre_time_stamp => '060', service_description => '065', status_code => '061', status_error_code => '062', status_report_request => '056', subaddr => '012', tariff_class => '064', user_data => '033', user_data_binary => '034', user_data_header => '032', user_identity => '010', validity_Period_Absolute => '051', validity_Period_Relative => '050', window_size => '019'}->{$_} |
|
217
|
0 |
0 |
unless $data =~ /^\x02([^:]+):([^\x09]+)\x09(.*\x09)?(..)?\x03/ |
|
222
|
0 |
0 |
if defined $data |
|
238
|
0 |
0 |
if defined {alive => '40', alive_resp => '90', cancel => '06', cancel_resp => '56', deliver_message => '20', deliver_message_resp => '70', deliver_status_report => '23', deliver_status_report_resp => '73', delivery_request => '05', delivery_request_resp => '55', enquire_message_status => '04', enquire_message_status_resp => '54', general_error_resp => '98', get_parameters => '09', get_parameters_resp => '59', login => '01', login_resp => '51', logout => '02', logout_resp => '52', nack => '99', set_parameters => '08', set_parameters_resp => '58', submit => '03', submit_resp => '53', submit_status_report => '13', submit_status_report_resp => '63'}->{$$req{'operation'} . '_resp'} |
|
257
|
0 |
0 |
exists $arg{'queue_size'} ? : |
|
|
0 |
0 |
exists $arg{'port'} ? : |
|
281
|
0 |
0 |
if substr($s, -1, 1) eq "\000" |
|
299
|
0 |
0 |
unless my $s = 'IO::Socket::INET'->new(@_) |
|
300
|
0 |
0 |
unless defined $s |