# ==========================================
# 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::Object;
use strict;
sub new {
return bless {}, $_[0];
}
sub init { return $_[0] }
sub handleUnknownSelector {
my ($self, $message, $selectors) = @_;
return undef;
}
1;
__END__
=head1 NAME
ObjectivePerl::Object - Root class for ObjectivePerl objects
=head1 SYNOPSIS
use ObjectivePerl;
@implementation MyClass
+ new {
~[$super new];
}
@end
In this example, MyClass is a subclass of
ObjectivePerl::Object, even without being
declared as such; all classes declared in this
way descend from ObjectivePerl::Object.
=head1 DESCRIPTION
This is the root class to all classes declared using the
ObjectivePerl @implementation/@end syntax. It needs to
be there so that all classes declared in this way have
some super-class and can invoke $super from methods.
=head2 USES
Generally you don't instantiate or subclass this
directly.
=head1 BUGS
None known.
=head1 SEE ALSO
ObjectivePerl
=head1 AUTHOR
kyle dawkins, E<lt>kyle@centralparksoftware.comE<gt>
=head1 COPYRIGHT AND LICENSE
Copyright 2004 by kyle dawkins
This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.
=cut