view release on metacpan or  search on metacpan

lib/Ff.pm  view on Meta::CPAN

    };
  };

  # 返回计算结果
  $self->render( json => $result );
} ## end sub initFirewall

#------------------------------------------------------------------------------
# updateNetwork 更新网络信息
#------------------------------------------------------------------------------
sub updateNetwork {
  my $self = shift;

  # 构造 result 数据结构
  my $result = {
    status  => 'ok',
    type    => '',
    content => ''
  };

  # 实例化 Pg