view release on metacpan or  search on metacpan

t/4_select.t  view on Meta::CPAN

my $event = Test::MockObject->new;
$event->set_always( 'button', 0 );
$event->set_always( 'x',      7 );
$event->set_always( 'y',      5 );
$view->get_tool->button_pressed($event);
$event->set_always( 'x', 93 );
$event->set_always( 'y', 67 );
$view->get_tool->button_released($event);

SKIP: {
    skip "I can't figure out the correct formula here which works with HiDPI", 1
      if $view->get('scale-factor') > 1;
    cmp_deeply(
        $view->get_selection,
        {
            x      => num(32),
            y      => num(38),
            width  => 11,
            height => 8
        },
        'get_selection'