#################### main pod documentation begin ################### =head1 NAME Zymonic::Manifest::zednax_manifests Manifest of zednax manifests =head1 SYNOPSIS Describes what should be installed as part of the core. =head1 DESCRIPTION Describes what should be installed as part of the core. =head1 USAGE TODO =head1 BUGS NONE =head1 SUPPORT As in the license, Zymonic is provided without warranty or support unless purchased separately, however... If you email zymonic-support@zednax.com your issue will be noted and may receive a response. For security issues, please contact zymonic-security@zednax.com and someone will respond within 8 working hours. =head1 AUTHOR Alex Masidlover et al. CPAN ID: MODAUTHOR Zednax Limited alex.masidlover@zednax.com http://www.zednax.com =head1 COPYRIGHT This program is free software licensed under the... Zymonic Public License 1.0 The full text of the license can be found in the LICENSE file included with this module. Other licenses may be acceptable if including parts of Zymonic in larger projects, please contact Zednax for details. =head1 SEE ALSO Zymonic perl(1). =cut #################### main pod documentation end ################### package Zymonic::Manifest::core_manifests; use strict; BEGIN { use Exporter (); use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $Working_copy); $VERSION = '0.01'; $Working_copy = ''; @ISA = qw(Exporter); #Give a hoot don't pollute, do not export more than needed by default @EXPORT = qw(); @EXPORT_OK = qw(); %EXPORT_TAGS = (); } use Zymonic::Utils qw(get_array debug); use base "Zymonic::Manifest"; use Zymonic; use Exception::Class ( 'Zymonic::Exception::Manifest' => { isa => 'Zymonic::Exception', fields => ['module'], description => 'Manifest related exceptions' }, ); #################### subroutine header begin #################### =head2 working_copy Usage : $manifest_obj->working_copy(); Purpose : Returns the working copy directory for the manifest Returns : see purpose Argument : none Throws : Zymonic::Exception::Manifest::NoWorkingCopy Comment : STUB See Also : =cut #################### subroutine header end #################### sub working_copy { return $Working_copy; } #################### subroutine header begin #################### =head2 get_contents Usage : @opts = $ManS->get_opts; Purpose : get contents for manifest Returns : options as an array of hash refs Argument : nothing Throws : nothing Comment : See Also : =cut #################### subroutine header end #################### #need to make a function in makefile.pl to record the files downloaded to be passed into a global variable in this file (se version setting) sub get_contents { my $self = shift; #loads all the folders as specified into a hash # the hash here needs to load all the files in which need to be installed my %Manifest = ( # IMPORTANT - any changes here will only be obeyed on the update # following the install of the changes. perl_modules => { destination => '', files => ["$Working_copy/modules/MANIFESTS/"], post_install => [ sub { my $app_server = shift; $app_server->install_perl_module( "Core Manifests", "$Working_copy/modules/MANIFESTS/" ); } ] }, ); return %Manifest; } #make 1;