Goo::Thing::pm::TypeChecker - What type of pm file is this? Perl6? Perl5?

#!/usr/bin/perl

package Goo::Thing::pm::TypeChecker;

###############################################################################
# Nigel Hamilton
#
# Copyright Nigel Hamilton 2005
# All Rights Reserved
#
# Author:       Nigel Hamilton
# Filename:     TypeChecker.pm
# Description:  What type of pm file is this? Perl6? Perl5?
#
# Date          Change
# ----------------------------------------------------------------------------
# 01/08/2005    Factored out of ProgramEditor as part of the new Goo
#
##############################################################################


###############################################################################
#
# is_perl6 - check if this Thing is Perl6?
#
###############################################################################

sub is_perl6 {

    my ($thing) = @_;

	# Goo::Prompter::trace(caller() . " " . $thing->to_string());

	# check the #!/shebang/line?
    return 1 if ($thing->get_file() =~ /\#.*\/pugs/);

	# if it's a class assume Perl6
    return 1 if ($thing->get_file() =~ /^class/);

	# use v6
    return 1 if ($thing->get_file() =~ /use\s+v6/);

	# what about the location?
    return 1 if ($thing->get_full_path() =~ /perl6/);

	return 0;

}


1;


__END__