The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

use vars qw{$VERSION};
BEGIN {
  $VERSION = '0.01';
}

sub parse {
    my $class = shift;
    my $text  = shift;
    foreach my $foo (blah) {
	foreach my $foo (blah) {
	    foreach my $foo (blah) {
		foreach my $foo (blah) {
		    foreach my $foo (blah) {
			foreach my $foo (blah) {
			    foo;
			}
		    }
		    foo;
		}
	    }
	}
	foreach my $foo (blah) {
	    foo;
	}

    }

    return 's4';
}

# vi:noai:sw=3 ts=7