The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
package Git::Class::Role::Cwd;

use Any::Moose '::Role';
use Cwd ();

has '_cwd' => (
  is       => 'ro',
  isa      => 'Str|Undef',
  init_arg => 'cwd',
  default  => sub { Cwd::cwd() },
);

1;

__END__

=head1 NAME

Git::Class::Role::Cwd

=head1 DESCRIPTION

Used internally.

=head1 AUTHOR

Kenichi Ishigaki, E<lt>ishigaki@cpan.orgE<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2011 by Kenichi Ishigaki.

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

=cut