Examples with PerlDebuggingEventBreakpoint com.perl5.lang.perl.idea.run.debugger.protocol.PerlDebuggingEventBreakpoint used on opensource projects

Example 1 with PerlDebuggingEventBreakpoint

use of com.perl5.lang.perl.idea.run.debugger.protocol.PerlDebuggingEventBreakpoint in project Perl5-IDEA by Camelcade.

the class PerlDebugUtil method findBreakpoint.

@Nullable
public static XLineBreakpoint findBreakpoint(final Project project, final PerlDebuggingEventBreakpoint breakpointBase) {
    final XLineBreakpoint[] result = new XLineBreakpoint[] { null };
    ApplicationManager.getApplication().runReadAction(() -> {
        String path = breakpointBase.getPath();
        VirtualFile virtualFile;
        String virtualFileUrl;
        virtualFile = VfsUtil.findFileByIoFile(new File(breakpointBase.getDebugThread().getDebugProfileState().mapPathToLocal(path)), true);
        if (virtualFile == null) {
            virtualFileUrl = PerlRemoteFileSystem.PROTOCOL_PREFIX + path;
        } else {
            virtualFileUrl = virtualFile.getUrl();
        }
        Collection<? extends XLineBreakpoint<PerlLineBreakpointProperties>> breakpoints = XDebuggerManager.getInstance(project).getBreakpointManager().getBreakpoints(PerlLineBreakpointType.class);
        for (XLineBreakpoint<PerlLineBreakpointProperties> breakpoint : breakpoints) {
            if (StringUtil.equals(breakpoint.getFileUrl(), virtualFileUrl) && breakpoint.getLine() == breakpointBase.getLine()) {
                result[0] = breakpoint;
                return;
            }
        }
    });
    return result[0];
}