如何將函數追加到類函數中

Question

我正在編寫一個具有多個函數的Web API，例如：login，logout，summary等。

每次我打電話任何這些我檢查我張貼的數據轉換成JSON功能和I檢查護照已過期

我怎麼能預先附加我每次調用一個函數時，做這兩件事的功能的API對象

Answer 1

我認爲Sub::Prepend可能會幫助你。

樣品：

use Sub::Prepend 'prepend'; 

    sub foo ($) { 
     print "Foo executed with \@_ = (@_).\n"; 
    } 

    BEGIN { 
     prepend foo => sub { 
      # This is called before foo executes. 
      print "Foo was called with \@_ = (@_).\n"; 
      push @_, 'and more'; 
     } 
    } 

    my @bar = qw/ foo bar baz /; 
    foo(@bar); # The prototype is preserved! 

    __END__ 
    Foo was called with @_ = (3). 
    Foo executed with @_ = (3 and more).