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';
}

 # /*	ex:   se ts=3 expandtabs : */