NoPaste

von godsmacker

SNIPPET_TEXT:
  1. sub new {
  2.     my $class = shift;
  3.     my %args = @_;
  4.  
  5.     my $dir;
  6.     my $tmpl = {
  7.         dir => {
  8.             required    => 1,
  9.             store       => \$dir
  10.         }      
  11.     };
  12.  
  13.     check($tmpl, \%args) or error(Params::Check->last_error), return;
  14.    
  15.     my $obj = $class->SUPER::new;
  16.     $obj->mk_accessors(qw( dir config ));
  17.  
  18.     warn $dir;
  19.     $obj->dir($dir);
  20.     warn $obj->dir;
  21.     $obj->config(JIB::Config->new);
  22.  
  23.     return $obj;
  24. }

Quellcode

Hier kannst du den Code kopieren und ihn in deinen bevorzugten Editor einfügen. PASTEBIN_DOWNLOAD_SNIPPET_EXPLAIN

Verlinken

URL: alles markieren
https://nopaste.debianforum.de/1738

BBCode: alles markieren
[NP]1738[/NP]

LATEST_SNIPPETS