Help for this page

Select Code to Download


  1. or download this
    sub form_parse {
    my $state = 0;
    my @forms = ();
    my @lines = split /\n/, $_[0];
  2. or download this
    sub get_attachment {
    my $self = shift;
...
    my $form = form_parse($content);

    my ($c, $o, $k, $e) = @{$$form[0]};
  3. or download this
    get_attachment (parent_id => $id, id => $_)
  4. or download this
    get_attachment (parent_id => $parent_id, id => $id, undecoded => $bool
+)