CPAN::Groonga

package Yakuake::Sessions::Base;

use namespace::autoclean;

use Moo;
use Class::Usul::Constants     qw( EXCEPTION_CLASS NUL );
use Class::Usul::Functions     qw( app_prefix io throw trim );
use Class::Usul::Options;
use File::DataClass::Functions qw( map_extension2class supported_extensions );
use File::DataClass::Types     qw( ArrayRef Directory HashRef
                                   NonEmptySimpleStr Path );
use Scalar::Util               qw( blessed );
use Unexpected::Functions      qw( Unspecified );

extends q(Class::Usul::Programs);

# Override defaults in base class
has '+config_class'    => default => sub { 'Yakuake::Sessions::Config' };

# Public attributes
option 'config_dir'    => is => 'lazy', isa => Directory,
   documentation       => 'Directory to store configuration files',
   coerce              => Directory->coercion, format => 's';

option 'profile_dir'   => is => 'lazy', isa => Path, coerce => Path->coercion,
   documentation       => 'Directory to store the session profiles',
   default             => sub { [ $_[ 0 ]->config_dir, 'profiles' ] },
   format              => 's';

option 'storage_class' => is => 'ro',   isa => NonEmptySimpleStr,
   documentation       => 'File format used to store session data',
   default             => sub { $_[ 0 ]->config->storage_class }, format => 's',
   short               => 's';

has 'extensions'       => is => 'lazy', isa => ArrayRef,
   builder             => sub { [ supported_extensions() ] },
   init_arg            => undef;

has 'profile_path'     => is => 'lazy', isa => Path, coerce => Path->coercion,
   init_arg            => undef;

has 'storage_map'      => is => 'lazy', isa => HashRef, init_arg => undef;

# Private methods
sub _build_config_dir {
   my $self = shift;
   my $home = $self->config->my_home;
   my $dir  = io [ $home, '.'.(app_prefix blessed $self) ];

   $dir->exists or $dir->mkpath;
   return $dir;
}

sub _build_profile_path {
   my $self    = shift;
   my $profile = $self->next_argv
      or throw class => Unspecified, args => [ 'profile name' ];
   my $path    = io $profile; $path->exists and return $path;
   my $profdir = $self->profile_dir; $path = $profdir->catfile( $profile );

   $path->exists and return $path;
   $profdir->exists or $profdir->mkpath;
   $profdir->filter( sub { $_->filename =~ m{ \A $profile }mx } );
   $path = ($profdir->all_files)[ 0 ]; defined $path and return $path;

   my $extn    = $self->storage_map->{ $self->storage_class } || NUL;

   return $profdir->catfile( $profile.$extn );
}

sub _build_storage_map {
   my $self = shift; my $map = {};

   for my $extn (supported_extensions()) {
      $map->{ map_extension2class( $extn )->[ 0 ] } = $extn;
   }

   return $map;
}

1;

__END__

=pod

=encoding utf8

=head1 Name

Yakuake::Sessions::Base - Attributes and methods for Yakuake session management

=head1 Synopsis

   package Yakuake::Sessions;

   use Moo;

   extends 'Yakuake::Sessions::Base';

=head1 Description

Attributes and methods for Yakuake session management

=head1 Configuration and Environment

Defines the following attributes;

=over 3

=item C<config_class>

The name of the configuration class

=item C<config_dir>

Directory containing the configuration files. Defaults to
F<~/.yakuake_sessions>

=item C<profile_dir>

Directory to store the session profiles in

=item C<storage_class>

File format used to store session data. Defaults to the config class
value; C<JSON>

=back

=head1 Subroutines/Methods

None

=head1 Diagnostics

None

=head1 Dependencies

=over 3

=item L<Class::Usul>

=item L<File::DataClass>

=item L<Yakuake::Sessions::Config>

=back

=head1 Incompatibilities

There are no known incompatibilities in this module

=head1 Bugs and Limitations

There are no known bugs in this module.
Please report problems to the address below.
Patches are welcome

=head1 Acknowledgements

Larry Wall - For the Perl programming language

=head1 Author

Peter Flanigan, C<< <pjfl@cpan.org> >>

=head1 License and Copyright

Copyright (c) 2014 Peter Flanigan. All rights reserved

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

This program is distributed in the hope that it will be useful,
but WITHOUT WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE

=cut

# Local Variables:
# mode: perl
# tab-width: 3
# End: