[gitmo/MooseX-InsideOut.git] / lib / MooseX / InsideOut.pm

use strict;
use warnings;

package MooseX::InsideOut;

use MooseX::InsideOut::Meta::Class;
BEGIN { require Moose }
use Carp;

our $VERSION = '0.002';

sub import {
  my $class = shift;
  
  if (@_) { Carp::confess "$class has no exports" }

  my $into = caller;

  return if $into eq 'main';

  Moose::init_meta(
    $into,
    'Moose::Object',
    'MooseX::InsideOut::Meta::Class',
  );

  Moose->import({ into => $into });

  return;
}

1;
__END__

=head1 NAME

MooseX::InsideOut - inside-out objects with Moose

=head1 VERSION

Version 0.002

=head1 SYNOPSIS

  package My::Object;

  use MooseX::InsideOut;

  # ... normal Moose functionality
  # or ...

  package My::Subclass;

  use metaclass 'MooseX::InsideOut::Meta::Class';
  use Moose;
  extends 'Some::Other::Class';

=head1 DESCRIPTION

MooseX::InsideOut provides a metaclass and an instance metaclass for inside-out
objects.

You can use MooseX::InsideOut, as in the first example in the L</SYNOPSIS>.
This sets up the metaclass and instance metaclass for you, as well as importing
all of the normal Moose goodies.

You can also use the metaclass C<MooseX::InsideOut::Meta::Class> directly, as
in the second example.  This is most useful when extending a non-Moose class,
whose internals you either don't want to care about or aren't hash-based.

=head1 TODO

=over

=item * dumping (for debugging purposes)

=item * serialization (for e.g. storable)

=item * (your suggestions here)

=back

=head1 AUTHOR

Hans Dieter Pearcey, C<< <hdp at pobox.com> >>

=head1 BUGS

Please report any bugs or feature requests to C<bug-moosex-insideout at rt.cpan.org>, or through
the web interface at L<http://rt.cpan.org/NoAuth/ReportBug.html?Queue=MooseX-InsideOut>.  I will be notified, and then you'll
automatically be notified of progress on your bug as I make changes.

=head1 SUPPORT

You can find documentation for this module with the perldoc command.

    perldoc MooseX::InsideOut


You can also look for information at:

=over 4

=item * RT: CPAN's request tracker

L<http://rt.cpan.org/NoAuth/Bugs.html?Dist=MooseX-InsideOut>

=item * AnnoCPAN: Annotated CPAN documentation

L<http://annocpan.org/dist/MooseX-InsideOut>

=item * CPAN Ratings

L<http://cpanratings.perl.org/d/MooseX-InsideOut>

=item * Search CPAN

L<http://search.cpan.org/dist/MooseX-InsideOut>

=back


=head1 ACKNOWLEDGEMENTS


=head1 COPYRIGHT & LICENSE

Copyright 2008 Hans Dieter Pearcey.

This program is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.

=cut
Commit	Line	Data
64468268	1	use strict;
	2	use warnings;
	3
	4	package MooseX::InsideOut;
	5
fda3c8a5	6	use MooseX::InsideOut::Meta::Class;
	7	BEGIN { require Moose }
	8	use Carp;
64468268	9
fda3c8a5	10	our $VERSION = '0.002';
	11
	12	sub import {
	13	my $class = shift;
	14
	15	if (@_) { Carp::confess "$class has no exports" }
	16
	17	my $into = caller;
	18
	19	return if $into eq 'main';
	20
	21	Moose::init_meta(
	22	$into,
	23	'Moose::Object',
	24	'MooseX::InsideOut::Meta::Class',
	25	);
	26
	27	Moose->import({ into => $into });
	28
	29	return;
	30	}
0a374e17	31
64468268	32	1;
	33	__END__
	34
	35	=head1 NAME
	36
	37	MooseX::InsideOut - inside-out objects with Moose
	38
	39	=head1 VERSION
	40
fda3c8a5	41	Version 0.002
64468268	42
64468268	43	=head1 SYNOPSIS
	44
	45	package My::Object;
	46
fda3c8a5	47	use MooseX::InsideOut;
64468268	48
	49	# ... normal Moose functionality
	50	# or ...
	51
	52	package My::Subclass;
	53
	54	use metaclass 'MooseX::InsideOut::Meta::Class';
	55	use Moose;
fda3c8a5	56	extends 'Some::Other::Class';
64468268	57
	58	=head1 DESCRIPTION
	59
	60	MooseX::InsideOut provides a metaclass and an instance metaclass for inside-out
	61	objects.
	62
fda3c8a5	63	You can use MooseX::InsideOut, as in the first example in the L</SYNOPSIS>.
	64	This sets up the metaclass and instance metaclass for you, as well as importing
	65	all of the normal Moose goodies.
64468268	66
	67	You can also use the metaclass C<MooseX::InsideOut::Meta::Class> directly, as
	68	in the second example. This is most useful when extending a non-Moose class,
	69	whose internals you either don't want to care about or aren't hash-based.
	70
	71	=head1 TODO
	72
	73	=over
	74
	75	=item * dumping (for debugging purposes)
	76
	77	=item * serialization (for e.g. storable)
	78
	79	=item * (your suggestions here)
	80
	81	=back
	82
	83	=head1 AUTHOR
	84
	85	Hans Dieter Pearcey, C<< <hdp at pobox.com> >>
	86
	87	=head1 BUGS
	88
	89	Please report any bugs or feature requests to C<bug-moosex-insideout at rt.cpan.org>, or through
	90	the web interface at L<http://rt.cpan.org/NoAuth/ReportBug.html?Queue=MooseX-InsideOut>. I will be notified, and then you'll
	91	automatically be notified of progress on your bug as I make changes.
	92
	93	=head1 SUPPORT
	94
	95	You can find documentation for this module with the perldoc command.
	96
	97	perldoc MooseX::InsideOut
	98
	99
	100	You can also look for information at:
	101
	102	=over 4
	103
	104	=item * RT: CPAN's request tracker
	105
	106	L<http://rt.cpan.org/NoAuth/Bugs.html?Dist=MooseX-InsideOut>
	107
	108	=item * AnnoCPAN: Annotated CPAN documentation
	109
	110	L<http://annocpan.org/dist/MooseX-InsideOut>
	111
	112	=item * CPAN Ratings
	113
	114	L<http://cpanratings.perl.org/d/MooseX-InsideOut>
	115
	116	=item * Search CPAN
	117
	118	L<http://search.cpan.org/dist/MooseX-InsideOut>
	119
	120	=back
	121
	122
	123	=head1 ACKNOWLEDGEMENTS
	124
	125
	126	=head1 COPYRIGHT & LICENSE
	127
	128	Copyright 2008 Hans Dieter Pearcey.
	129
130	This program is free software; you can redistribute it and/or modify it
131	under the same terms as Perl itself.
132
133	=cut