App-Siesh

 view release on metacpan or  search on metacpan

Build.PL  view on Meta::CPAN

    requires    => {
        'autodie'             => 0,
        'Config::Find'        => 0,
        'Config::Tiny'        => 0,
        'File::Temp'          => 0,
	'Getopt::Long'        => 0,
        'IO::File'            => 0,
        'IO::Handle'          => 0,
        'IO::Interactive'     => 0,
        'IO::Prompt'          => 0,
        'IO::Socket::SSL'     => 0,
        'IPC::System::Simple' => 0,
        'Net::ManageSieve'    => '0.08',
        'parent'              => 0,
        'Pod::Usage'          => 0,
        'Term::ShellUI'       => 0,
    },
    build_requires => {
        'Test::More'   => 0,
        'IO::String'   => 0,
        'Test::Output' => 0,

META.json  view on Meta::CPAN

         },
         "requires" : {
            "Config::Find" : 0,
            "Config::Tiny" : 0,
            "File::Temp" : 0,
            "Getopt::Long" : 0,
            "IO::File" : 0,
            "IO::Handle" : 0,
            "IO::Interactive" : 0,
            "IO::Prompt" : 0,
            "IO::Socket::SSL" : 0,
            "IPC::System::Simple" : 0,
            "Net::ManageSieve" : "0.08",
            "Pod::Usage" : 0,
            "Term::ShellUI" : 0,
            "autodie" : 0,
            "parent" : 0
         }
      }
   },
   "provides" : {

META.yml  view on Meta::CPAN

  Authen::SASL: 0
requires:
  Config::Find: 0
  Config::Tiny: 0
  File::Temp: 0
  Getopt::Long: 0
  IO::File: 0
  IO::Handle: 0
  IO::Interactive: 0
  IO::Prompt: 0
  IO::Socket::SSL: 0
  IPC::System::Simple: 0
  Net::ManageSieve: 0.08
  Pod::Usage: 0
  Term::ShellUI: 0
  autodie: 0
  parent: 0
resources:
  license: http://dev.perl.org/licenses/
  repository: http://github.com/mdom/app-siesh
version: 0.21

lib/Net/ManageSieve/Siesh.pm  view on Meta::CPAN

use autodie qw(:all);
use File::Temp qw/tempfile/;
use Net::ManageSieve;
use IO::Prompt;
use parent qw(Net::ManageSieve);

sub starttls {
    my ( $self, @args ) = @_;
    if ( $self->debug() ) {
        eval {
            require IO::Socket::SSL;
            IO::Socket::SSL->import('debug3');
            1;
        } or do {
            die "Cannot load module IO::Socket::SSL\n";
          }
    }
    return $self->SUPER::starttls(@args);
}

sub movescript {
    my ( $self, $source, $target ) = @_;
    my $is_active = $self->is_active($source);

    ## We can't delete a active script, so we just deactivate it ...