Mollie :: Micropayment.

Mollie :: Micropayment´Â MollieÀÇ Micropayment ¼­ºñ½º¸¦À§ÇÑ Perl APIÀÔ´Ï´Ù.
Áö±Ý ´Ù¿î·Îµå

Mollie :: Micropayment. ¼øÀ§ ¹× ¿ä¾à

±¤°í

  • Rating:
  • ƯÇã:
  • Perl Artistic License
  • °¡°Ý:
  • FREE
  • °Ô½ÃÀÚ À̸§:
  • C. Kras
  • °Ô½ÃÀÚ À¥»çÀÌÆ®:
  • http://search.cpan.org/~ckras/Mollie-Micropayment-0.03/lib/Mollie/Micropayment.pm

Mollie :: Micropayment. ű×


Mollie :: Micropayment. ¼³¸í

Mollie :: Micropayment´Â MollieÀÇ Micropayment ¼­ºñ½º¸¦À§ÇÑ Perl APIÀÔ´Ï´Ù. Mollie :: MicroPayment´Â MollieÀÇ Micropayment Service.Synopsis # ±âº» ¼³Á¤À»À§ÇÑ Perl APIÀÔ´Ï´Ù. ¿¹Á¦´Â °áÁ¦ »ç¿ëÀ» ¿ÏÀüÈ÷ ó¸®ÇÏ´Â °ÍÀÔ´Ï´Ù Mollie :: Micropayment; My $ Mollie = New Mollie :: Micropayment; $ mollie-> ÆÄÆ®³Ê ÀÎ (10000); # °èÁ¤ ID $ Mollie-> ±Ý¾× (0.50)À» ¼³Á¤ÇϽʽÿÀ. # ÁöºÒ ÇÒ ±Ý¾× (EUR 0.50) $ Mollie-> ±¹°¡ (31); # ±¹°¡ ÄÚµå (³×´ú¶õµå) # ÇÚµé ÁöºÒ $ Mollie-> CheckPayment () ($ mollie-> is_payed () EQ "TRUE"{PRINT '»ç¿ëÀÚ°¡ ¼º°øÀûÀ¸·Î ÁöºÒµÇ¾ú½À´Ï´Ù!'; } else {print 'payment´Â (¿ÏÀüÈ÷) ¿Ï·áµÇÁö ¾Ê¾Ò½À´Ï´Ù. »ç¿ëÀÚ¿¡°Ô ÁöºÒ È­¸éÀ¸·Î µ¹¾Æ °¡±â'; } # ($ mollie-> is_payed () eq "false"$ mollie-> payinfo ()) {# playing found to submit ¹öÆ°À» ¿©±â¿¡ ³Ö´Â ¹æ¹ý¿¡ ´ëÇÑ Á¤º¸¸¦ Ç¥½ÃÇϽʽÿÀ. Æ÷ÇÔ µÈ ¿¹Á¦} else {print '¸¦ ÁöºÒ ÇÒ ¼ö ¾ø½À´Ï´Ù.'; } ¿ä±¸ »çÇ× : ¡¤ Perl.


Mollie :: Micropayment. °ü·Ã ¼ÒÇÁÆ®¿þ¾î