File Coverage

blib/lib/ObjectivePerl.pm

Criterion	Covered	Total	%
statement	16	18	88.8
branch			n/a
condition			n/a
subroutine	6	6	100.0
pod			n/a
total	22	24	91.6

# ==========================================
# Copyright (C) 2004 kyle dawkins
# kyle-at-centralparksoftware.com
# ObjectivePerl is free software; you can
# redistribute and/or modify it under the
# same terms as perl itself.
# ==========================================

package ObjectivePerl;

use strict;
use warnings;
use vars qw($DEBUG_SOURCE $DEBUG_MESSAGING $DEBUG_ALL);
use Filter::Simple;
use ObjectivePerl::Runtime;
use ObjectivePerl::Parser;
use ObjectivePerl::InstanceVariable;

our $VERSION = '0.04';

# debug levels; these are a bitmask
# so you can combine more than one using the | operator
$DEBUG_SOURCE    = 0x0001;
$DEBUG_MESSAGING = 0x0002;
$DEBUG_ALL       = 0xffff;

my $parser = ObjectivePerl::Parser->new();

FILTER {
	$parser->initWithString($_);
	$_ = join("", @{$parser->content()});
};

sub import {
	my $module = shift;
	my %params = @_;

	while (my ($key, $value) = each %params) {
		if ($key eq "class") {
			$parser->{_currentClass} = $value;
			next;
		}
		if ($key eq "debug") {
			my $debugLevel = $value || $DEBUG_ALL;
			$parser->setDebug($debugLevel);
			ObjectivePerl::Runtime->runtime()->setDebug($debugLevel);
		}
		if ($key eq "CamelBones" && $value) {
			$parser->setCamelBonesCompatibility(1);
			ObjectivePerl::Runtime->runtime()->setCamelBonesCompatibility(1); #needed?
		}
		# TODO: allow user to change start/end regexps, etc.
	}
}

1;
__END__