/ 
Perl6-Perldoc-0.000013
River stage one • 2 direct dependents • 3 total dependents
/ t/perldoc_embedded_multipackage.t

package Other;

package main;

::is_deeply \@DATA, [ "main data\n", "more main data\n", "other data\n", "more other data\n", "still more main data\n", ] => '*main::DATA correct';

package Other;

::is_deeply \@DATA, [ "main data\n", "more main data\n", "other data\n", "more other data\n", "still more main data\n", ] => '*Other::DATA correct';

package Elsewhere;

::is_deeply \@DATA, [ "main data\n", "more main data\n", "other data\n", "more other data\n", "still more main data\n", ] => '*Elsewhere::DATA correct';