view release on metacpan or  search on metacpan

lib/App/Wx/PodEditor/Actions/File.pm  view on Meta::CPAN

    all => [@EXPORT_OK],
);

our $VERSION = 0.01;

sub file_OpenFile {
    my ($self,$event) = @_;
    
    my $file = Wx::FileSelector( 'Open a Pod file', '', '', 'Pod file (*.pod) | *.pod' );
    if( $file ){
        my $content = do{ local (@ARGV,$/) = $file; <> };
        $self->_editor->set_pod( $content );
    }
}

sub file_SaveFile {
    my ($self,$event) = @_;
    
    print "save file...\n";
    my $pod = $self->_editor->get_pod;