Re: List::MoreUtils before, after and ... between? (SMoP)


No such thing as a small change
	PerlMonks

Re: List::MoreUtils before, after and ... between? (SMoP)

by tye (Sage)

on Feb 21, 2012 at 15:59 UTC ( [id://955340]=note: print w/replies, xml )

Need Help??

in reply to List::MoreUtils before, after and ... between?

my @stack;
for my $level (  qw<
    eval DBIC::3 DBIC::2 DBIC::1 MyApp::3
    MyApp::2 MyApp::1 Dancer::3 Dancer::2 Dancer::1
>  ) {
    last
        if  $level =~ /Dancer/;
    push @stack, $level;
    @stack = ()
        if  $level =~ /DBIC/;
}
say for @stack;
[download]

(Updated to move 'last' statement above 'push' statement. Thanks, AnomalousMonk.)

- tye