perl - OOP design suggestion -

-

i have set of files needs either emailed or ftped(read config). before doing either of these need common operation on files, changing filenames, sanity check, on. 

        package class::foo::partners;      use carp;     use data::dumper;     # sanity check , blessing     sub new ($) {         $class = shift;         %attr = @_;         carp::confess('config undefined') unless defined $attr{cfg};         $self = bless({}, $class);         %$self = @_;         return $self;     }      sub process {         $self = shift;          %filestoupload = ();         if ($self->{dbh}->sql($sql, \%filestoupload)) {             $stats;             if (defined $self->{cfg}->{$self->{section}}->{pdf_email_rcpt}) {                 $stats = class::foo::email->new(section => $self->{cfg}->{$self->{section}}, filestoupload => \%filestoupload);                 $stats->sendfiles;             } else {                 $stats = class::foo::ftp->new(section => $self->{cfg}->{$self->{section}}, filestoupload => \%filestoupload);                 $stats->sendfiles;             }         } elsif ($self->{dbh}->{_error}) {             carp::confess($self->{dbh}->{_error});         } else {             print "no files";         }     }       package class::foo::ftp;      use carp;     use data::dumper;     use posix qw( strftime );     use file::temp qw (tempdir) ;     use file::copy;     use net::ftp;      # sanity check , blessing     sub new ($) {         $class = shift;         %attr = @_;         carp::confess('section undefined') unless defined $attr{section};         carp::confess('undefined ftp_host') unless defined $attr{section}->{ftp_host};           $self = bless({}, $class);         %$self = @_;          return $self;     }      sub sendfiles {         $self = shift;         return unless(keys %{$self->{filestoupload}});         #do common task         ..         $self->ftp_connect();         ..         ..     }      package class::foo::email;      use data::dumper;     use mail::sender;     use posix qw( strftime );     use file::temp qw (tempdir) ;     use file::copy;      sub new ($) {         $class = shift;         %attr = @_;         carp::confess('config: undefined pdf_email_subject') unless defined $attr{section}->{pdf_email_subject};         carp::confess('config: undefined pdf_email_from') unless defined $attr{section}->{pdf_email_from};         $self = bless({}, $class);         %$self = @_;          return $self;     }      sub sendfiles {         $self = shift;         return unless(keys %{$self->{filestoupload}});         #do common task         ..         $mailrcpt = $self->{section}->{pdf_email_rcpt};         $sender = new mail::sender {smtp => 'localhost', => $self->{section}->{pdf_email_from}};         $sender->mailfile({ => $mailrcpt,                              subject => $self->{section}->{pdf_email_subject},                              msg => "attached a1 of today's wsje. ",                             ctype => 'application/pdf',                             file => @files } );          $self->{uploaded_count} = @files;     }

where common operation , when , how call respective child classes?

should use abstraction?

thanks help

check out implementation of mt::filemgr:

https://github.com/openmelody/melody/tree/master/lib/mt

it should give lot of ideas on how perl oop this.


Comments

Post a Comment

Popular posts from this blog

c# - How to set Z index when using WPF DrawingContext? -

-
how set z-index drawing object when using drawingcontext.drawxxx() methods? the object drawn last have higher z index. can't change index of drawn objects. way draw in order. if using wpf (as placed tag), can use, example, canvas control. create shapes need like polyline obj = new polyline(); //... // ... set properties of obj and add them canvas uielementcollection: yourcanvasname.children.add(obj); //or yourcanvasname.children.insert(i, obj); first items of collection have higher z index. advantages in way: no need redraw on window changes, can anytime move objects , change order.
Read more

razor - Is this a bug in WebMatrix PageData? -

-
i think may have found bug in webmatrix's pagedata, not sure. concerns how pass data partial page calling page. in webmatrix documentation (tutorials, e.g. " 3 - creating consistent look ", , example code), pagedata recommended mechanism pass data between pages (e.g. content page layout page, or partial page). however have found not work other way, pass data partial page calling page. modifying or adding entries in pagedata in partial page, not seem calling page. cutting right down simplest possible example, in test page may have this: @{ pagedata["test"] = "initial entry"; } <p>before calling partial page, test value @pagedata["test"]</p> @renderpage("_testpartial.cshtml") <p>after returning calling page, test value @pagedata["test"]</p> and in _testpartial.cshtml page might have this: @{ pagedata["test"] = "modified entry"; } <p>in partial page...
Read more

android - layout with fragment and framelayout replaced by another fragment and framelayout -

-
edit: so after comments below, revisted , realized hanging me up. imagine client list , client details activity started : public class clientsmainactivity extends fragmentactivity { @override public void oncreate(bundle savedinstancestate) { super.oncreate(savedinstancestate); //studiotabopenhelper db; setcontentview(r.layout.main_client_activity); } } so works great, starts main_client_activity (defined in layout below, , call activity when button on main screen clicked): intent intent = new intent(getactivity(), clientsmainactivity.class); startactivity(intent); easy issue is, clientsmainactivity not call oncreateview or anything, sets layout layout defines fragment, , listfragment. fine cause not trying pass clientsmainactivity , if have hypothetical activity like: sessionmainsactivity called when click on session edit of client, not calling sessionsmainactivity same way (starts activity sets alayout), want layout set defines...
Read more