t/configure/032-data.t

277     my $flag2 = 0;
279     $pcd->settrigger( 'foo', 'baz', sub { $flag2 = 1 } );
282     is( $flag2, 0, "->settrigger() doesn't activate a stacked callback" );
289     my $flag2 = 0;
291     $pcd->settrigger( 'foo', 'baz', sub { $flag2 = 1 } );
295     is( $flag2, 0, "->get() doesn't activate the stacked callback" );
302     my $flag2 = 0;
304     $pcd->settrigger( 'foo', 'baz', sub { $flag2 = 1 } );
308     is( $flag2, 1, "->set() activates the stacked callback" );
315     my $flag2 = 0;
317     $pcd->settrigger( 'foo', 'baz', sub { $flag2 = 1 } );
321     is( $flag2, 1, "->add() activates the stacked callback" );
358     my $flag2 = 0;
360     $pcd->settrigger( 'foo', 'baz', sub { $flag2 = 1 } );
364     is( $flag2,           0, "->gettriggers() doesn't activate the stacked callback" );
394     my $flag2 = 0;
396     $pcd->settrigger( 'foo', 'baz', sub { $flag2 = 1 } );
400     is( $flag2,       0,      "->gettrigger() doesn't activate the stacked callback" );
404     is( $flag2, 0, "->gettrigger() returned the correct callback" );
411     my $flag2 = 0;
413     $pcd->settrigger( 'foo', 'baz', sub { $flag2 = 1 } );
417     is( $flag2,       0,      "->gettrigger() doesn't activate the stacked callback" );
421     is( $flag2, 1, "->gettrigger() returned the correct callback" );
459     my $flag2 = 0;
461     $pcd->settrigger( 'foo', 'baz', sub { $flag2 = 1 } );
473     my $flag2 = 0;
475     $pcd->settrigger( 'foo', 'baz', sub { $flag2 = 1 } );
507     my $flag2 = 0;
509     $pcd->settrigger( 'foo', 'baz', sub { $flag2 = 1 } );
513     is( $flag2, 0, "->deltrigger() doesn't activate the stacked callback" );
520     my $flag2 = 0;
522     $pcd->settrigger( 'foo', 'baz', sub { $flag2 = 1 } );
526     is( $flag2, 0, "->deltrigger() doesn't activate the stacked callback" );