my_missing.pl

#!/usr/bin/env perl
use 5.010;

# This code can be run from the command line,
# but is not intended to accomplish anything.
# It is just the data file for lex_label.pl,
# but has its own .pl extension for syntax
# hi-lighting.

print_it('abc', 42) if 0==1 and check_it('abc') and sqrt($foo);

($fruit) = 'apple';
$fruit = 'apple';
say $fruit;

if ( $diet = 'paleo' ) {
    $meat = 'Yes'; # `my` gets added here
}
elsif ( $diet = 'vegan' ) {
    $meat = 'No';
}
else {
    $meat = 'Maybe';
}
say $meat;

$i = 0;
while ($i++<5) {
    $j = $i;
}
say $j;

@array = grep { $_ % 2 == 0 } 1 .. 5;
$array[7] = 8;

$c = 0;
%hash = map { $_ => ++$c } grep { /a/ } grep /s/, qw( salami baloney );
%hash = map { $_ => ++$d } grep { /a/ } grep /s/, qw( salami baloney ); # Test redefiniion and $d not being initialized.

# Bug! Adding this block causes Document->complete to fail!!!!
{
    $grain = 'wheat';
    say $grain;
}

sub foo1 {
    if ( $burned_out ) {
        $unstable++;
    }
    if ( !$burned_out ) {
        $unstable--;
    }
    say 'hi!';
}