Ticket #718: cpan.rb

# PERL CPAN support
Puppet::Type.type(:package).provide :cpan do
        desc "PERL CPAN support."

        # has_feature :versionable

        commands :cpancmd => "perl"
        confine :exists   => "/etc/perl/CPAN/Config.pm" # may be Debian specific

        def install(useversion = true)
                name = @model[:name]
                if (! @model.should(:ensure).is_a? Symbol) and useversion
                        # we have to figure out the CPAN file name to install
                        response = self.class.info(name)
                        name = response['CPAN_FILE'].sub(/\d+\.\d+/, @model.should(:ensure))
                end

                command = command(:cpancmd) + " -MCPAN -e 'CPAN::Shell->install(\"#{name}\")'"
                execute(command);
        end

        def latest
                response = self.class.info(@model[:name])
                if response['CPAN_VERSION']
                        return {:name => @model[:name], :ensure => response['CPAN_VERSION'], :provider => :cpan}
                        else
                                raise Puppet::Error, "CPAN module #{@model[:name]} not found"
                end
        end

        def query
                response = self.class.info(@model[:name])

                return {:name => @model[:name], :ensure => response['INST_VERSION'], :provider => :cpan}
        end

        def self.info(name)
                command = command(:cpancmd) + " -MCPAN -e 'CPAN::Shell->i(\"#{name}\")'"
                response = {}
                begin
                        execute(command).split("\n").each do |line|
                                response[$1] = $2 if /\s{4}(\S+)\s+(.*)/.match(line)
                        end
                rescue Puppet::ExecutionFailure => detail
                        raise Puppet::Error, "Could not list CPAN modules: %s" % detail
                end
                return response
        end

        def update
                self.install(false)
        end

        def versionable?
                true
        end

end

# $Id$