Branch Coverage

blib/lib/Metabrik/Xorg/Xrandr.pm
Criterion Covered Total %
branch 0 158 0.0


line true false branch
63 0 0 unless my $lines = $self->capture("xrandr")
67 0 0 if ($line =~ /^(\S+)\s+(connected|disconnected)/)
78 0 0 unless my $lines = $self->capture("xrandr")
82 0 0 if ($line =~ /^(\S+)\s+connected/)
93 0 0 unless my $lines = $self->capture("xrandr")
97 0 0 if ($line =~ /^(\S+)\s+disconnected/)
113 0 0 unless my $lines = $self->capture("xrandr")
118 0 0 if ($line =~ /^(\S+)\s+(connected|disconnected)/)
123 0 0 if (defined $output) { }
124 0 0 if (length $current_output and $current_output eq $output)
125 0 0 if ($line =~ /^\s+(\d+x\d+)\s+/)
131 0 0 if (length $current_output)
132 0 0 if ($line =~ /^\s+(\d+x\d+)\s+/)
140 0 0 if (defined $output)
153 0 0 unless my $output = $self->get_first_output
163 0 0 unless my $output = $self->get_secondary_output
173 0 0 unless my $lines = $self->capture("xrandr")
177 0 0 if ($line =~ /^(\S+)\s+connected/)
192 0 0 unless my $lines = $self->capture("xrandr")
197 0 0 if ($line =~ /^(\S+)\s+connected/)
198 0 0 if ($first)
216 0 0 unless my $lines = $self->capture("xrandr")
221 0 0 if ($line =~ /^(\S+)\s+connected/)
226 0 0 if (length $current_output)
227 0 0 if ($line =~ /^\s+(\d+x\d+)\s+\S+\*/)
239 0 0 unless my $list = $self->list_first_output_resolutions
241 0 0 if (@$list > 0)
251 0 0 unless my $second = $self->get_secondary_output
253 0 0 unless my $lines = $self->capture("xrandr")
258 0 0 if ($line =~ /^(\S+)\s+connected/)
259 0 0 if ($1 eq $second) { }
268 0 0 if (length $current_output)
269 0 0 if ($line =~ /^\s+(\d+x\d+)\s+\S+\*/)
281 0 0 unless my $list = $self->list_secondary_output_resolutions
283 0 0 if (@$list > 0)
315 0 0 unless $self->brik_help_run_undef_arg("set_first_output_resolution", $resolution)
317 0 0 unless my $lines = $self->capture("xrandr")
318 0 0 unless my $output = $self->get_first_output
319 0 0 unless my $possible = $self->list_output_resolutions($output)
323 0 0 if ($this eq $resolution)
329 0 0 unless ($ok)
350 0 0 unless my $max = $self->get_first_output_max_resolution
362 0 0 unless $self->brik_help_run_undef_arg("set_secondary_output_resolution", $resolution)
364 0 0 unless my $lines = $self->capture("xrandr")
365 0 0 unless my $output = $self->get_secondary_output
366 0 0 unless my $possible = $self->list_output_resolutions($output)
370 0 0 if ($this eq $resolution)
376 0 0 unless ($ok)
387 0 0 unless my $max = $self->get_secondary_output_max_resolution
405 0 0 unless $self->brik_help_run_undef_arg("clone_first_to", $second)
407 0 0 unless my $connected = $self->list_connected_outputs
410 0 0 if ($this eq $second)
416 0 0 unless ($found)
420 0 0 unless my $current_output = $self->get_first_output
421 0 0 unless my $current_resolution = $self->get_first_output_resolution
435 0 0 unless $self->brik_help_run_undef_arg("dual_first_right_of", $second)
437 0 0 unless my $connected = $self->list_connected_outputs
440 0 0 if ($this eq $second)
446 0 0 unless ($found)
450 0 0 unless my $current_output = $self->get_first_output
451 0 0 unless my $current_resolution = $self->get_first_output_resolution
464 0 0 unless my $outputs = $self->list_output_resolutions
465 0 0 if (not defined $first || defined $second and @$outputs < 2 || @$outputs > 2)
475 0 0 if ($this_first eq $this_second)
482 0 0 if defined $resolution
493 0 0 unless (defined $resolution)
494 0 0 unless my $first = $self->get_first_output
495 0 0 unless my $second = $self->get_secondary_output
496 0 0 unless $resolution = $self->get_common_resolution($first, $second)
500 0 0 unless $self->brik_help_run_undef_arg("clone", $resolution)
502 0 0 unless my $list1 = $self->list_first_output_resolutions
505 0 0 if ($_ eq $resolution)
510 0 0 unless ($ok)
515 0 0 unless $self->set_first_output_resolution($resolution)
517 0 0 unless my $second = $self->get_secondary_output
518 0 0 unless my $list2 = $self->list_secondary_output_resolutions
521 0 0 if ($_ eq $resolution)
526 0 0 unless ($ok)
531 0 0 unless $self->set_secondary_output_resolution($resolution)